msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Transfer: fixed bug in prelude partition. Fixed naming of tuple field names, made it 1-based as in docs, instead of 0-based as before.

Browse Source
This commit is contained in:
bringert
2005-12-08 09:45:17 +00:00
parent 2109eb29ff
commit d6fb8d218b
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/Transfer/SyntaxToCore.hs
View File

@@ -577,10 +577,10 @@ gtrue = GuardExp true
mkETuple :: [Exp] -> Exp
mkETuple = ERec . zipWith (\i -> FieldValue (Ident ("p"++show i))) [0..]
mkETuple = ERec . zipWith (\i -> FieldValue (Ident ("p"++show i))) [1..]
mkPTuple :: [Pattern] -> Pattern
mkPTuple = PRec . zipWith (\i -> FieldPattern (Ident ("p"++show i))) [0..]
mkPTuple = PRec . zipWith (\i -> FieldPattern (Ident ("p"++show i))) [1..]
-- | Apply an expression to a list of arguments.
apply :: Exp -> [Exp] -> Exp