diff options
| author | bjorn <bjorn@bringert.net> | 2008-10-20 11:59:31 +0000 |
|---|---|---|
| committer | bjorn <bjorn@bringert.net> | 2008-10-20 11:59:31 +0000 |
| commit | d41616dd6aa52c813edf7dabef4c0684fae4e4e0 (patch) | |
| tree | 0d6490e8978902b32e55b631567fa99eef43159f /src/PGF.hs | |
| parent | 2174690c5e60667955bbf9fd6f0a8d3beb1734a9 (diff) | |
Added Read and Show instances for CId. Also added readCId :: String -> Maybe CId, and use that for readLanguage.
Diffstat (limited to 'src/PGF.hs')
| -rw-r--r-- | src/PGF.hs | 6 |
1 files changed, 3 insertions, 3 deletions
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 |