From c6137229ebb66b0a299b3ff09bd6fabf01444884 Mon Sep 17 00:00:00 2001 From: bjorn Date: Wed, 30 Jan 2008 17:18:27 +0000 Subject: Standard format for floats and strings in GFCC. --- src/GF/GFCC/Raw/ParGFCCRaw.hs | 2 -- 1 file changed, 2 deletions(-) (limited to 'src/GF/GFCC/Raw/ParGFCCRaw.hs') diff --git a/src/GF/GFCC/Raw/ParGFCCRaw.hs b/src/GF/GFCC/Raw/ParGFCCRaw.hs index 06ed83c04..051358211 100644 --- a/src/GF/GFCC/Raw/ParGFCCRaw.hs +++ b/src/GF/GFCC/Raw/ParGFCCRaw.hs @@ -21,9 +21,7 @@ pTerm n = skipSpaces >> (pParen <++ pApp <++ pNum <++ pStr <++ pMeta) where pParen = between (char '(') (char ')') (pTerm 0) pApp = liftM2 App pIdent (if n == 0 then pTerms else return []) pStr = char '"' >> liftM AStr (manyTill (pEsc <++ get) (char '"')) - -- FIXME: what escapes are used? pEsc = char '\\' >> get - -- FIXME: what formats? pNum = do x <- munch1 isDigit ((char '.' >> munch1 isDigit >>= \y -> return (AFlt (read (x++"."++y)))) <++ -- cgit v1.2.3