From a282336de65cd9e6aff14f58fc102f9f27d52a6b Mon Sep 17 00:00:00 2001 From: bringert Date: Thu, 8 Dec 2005 09:45:17 +0000 Subject: 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. --- src/Transfer/SyntaxToCore.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Transfer/SyntaxToCore.hs') diff --git a/src/Transfer/SyntaxToCore.hs b/src/Transfer/SyntaxToCore.hs index ce2ac19c6..ecd9437a4 100644 --- a/src/Transfer/SyntaxToCore.hs +++ b/src/Transfer/SyntaxToCore.hs @@ -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 -- cgit v1.2.3