From 05866457e4617cf3036f15daa2076d25283fb2b6 Mon Sep 17 00:00:00 2001 From: Neil Brown Date: Wed, 19 Mar 2008 17:34:12 +0000 Subject: [PATCH] Fixed the type of a range to at least be a list --- frontends/ParseRain.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/frontends/ParseRain.hs b/frontends/ParseRain.hs index f826565..5f67650 100644 --- a/frontends/ParseRain.hs +++ b/frontends/ParseRain.hs @@ -215,8 +215,8 @@ literal = do {lr <- stringLiteral ; return $ A.Literal (findMeta lr) (A.List A.B "literal" range :: RainParser A.Expression -range = try $ do {m <- sLeftQ ; begin <- integerLiteral; sDots ; end <- integerLiteral ; - sRightQ ; return $ A.ExprConstr m $ A.RangeConstr m A.Any begin end} +range = try $ do {m <- sLeftQ ; begin <- literal; sDots ; end <- literal ; + sRightQ ; return $ A.ExprConstr m $ A.RangeConstr m (A.List A.Any) begin end} expression :: RainParser A.Expression expression