From d41616dd6aa52c813edf7dabef4c0684fae4e4e0 Mon Sep 17 00:00:00 2001
From: bjorn <bjorn@bringert.net>
Date: Mon, 20 Oct 2008 11:59:31 +0000
Subject: Added Read and Show instances for CId. Also added readCId :: String
 -> Maybe CId, and use that for readLanguage.

---
 src/PGF.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/PGF.hs')

diff --git a/src/PGF.hs b/src/PGF.hs
index 113cc08b8..05d89651e 100644
--- a/src/PGF.hs
+++ b/src/PGF.hs
@@ -77,7 +77,7 @@ import qualified PGF.Parsing.FCFG.Incremental as Incremental
 import GF.Text.UTF8
 
 import GF.Data.ErrM
-import GF.Data.Utilities
+import GF.Data.Utilities (replace)
 
 import Data.Char
 import qualified Data.Map as Map
@@ -98,7 +98,7 @@ import Control.Monad
 -- > concrete LangEng of Lang = ...
 type Language     = CId
 
-readLanguage :: String -> Language
+readLanguage :: String -> Maybe Language
 
 showLanguage :: Language -> String
 
@@ -207,7 +207,7 @@ complete :: PGF -> Language -> Type -> String
 -- Implementation
 ---------------------------------------------------
 
-readLanguage = mkCId
+readLanguage = readCId
 
 showLanguage = prCId
 
-- 
cgit v1.2.3