diff options
Diffstat (limited to 'src/GF/Compile/PGrammar.hs')
| -rw-r--r-- | src/GF/Compile/PGrammar.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/GF/Compile/PGrammar.hs b/src/GF/Compile/PGrammar.hs index 06d9fc72e..6237b6f25 100644 --- a/src/GF/Compile/PGrammar.hs +++ b/src/GF/Compile/PGrammar.hs @@ -43,12 +43,14 @@ string2formsAndTerm s = case s of (x,_:y) -> (pTrms (tail x), pTrm y) _ -> ([],pTrm s) _ -> ([], pTrm s) +-} string2ident :: String -> Err Ident string2ident s = return $ case s of c:'_':i -> identV (readIntArg i,[c]) --- _ -> zIdent s +{- -- reads the Haskell datatype readGrammar :: String -> Err GrammarST readGrammar s = case [x | (x,t) <- reads s, ("","") <- lex t] of |