diff --git a/src/runtime/haskell/PGF.hs b/src/runtime/haskell/PGF.hs
index 2a9998148..f817e2dcd 100644
--- a/src/runtime/haskell/PGF.hs
+++ b/src/runtime/haskell/PGF.hs
@@ -173,7 +173,7 @@ ppCId = text . showCId
 
 type Language = CId
 
-readLanguage lang = CId lang
+readLanguage = readCId
 showLanguage (CId lang) = lang
 
 -- | creates a type from list of hypothesises, category and