GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-20 16:42:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

Move some type annotations from patterns to expressions. Haskell 98 does not allow type signatures in expressions.

Browse Source
This commit is contained in:
bringert
2007-06-14 16:02:07 +00:00
parent 1fa928516c
commit 3edaa60988
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/GF/Parsing/GFC.hs
View File

@@ -60,10 +60,10 @@ buildPInfo mcfg fcfg cfg = PInfo { mcfPInfo = PM.buildMCFPInfo mcfg
where where
grammarLexer s = grammarLexer s =
case reads s of case reads s of
[(n::Integer,"")] -> (fcatInt, SInt n) [(n,"")] -> (fcatInt, SInt (n::Integer))
_ -> case reads s of _ -> case reads s of
[(f::Double,"")] -> (fcatFloat, SFloat f) [(f,"")] -> (fcatFloat, SFloat (f::Double))
_ -> (fcatString,SString s) _ -> (fcatString,SString s)
instance Print PInfo where instance Print PInfo where