suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed the TestUtils module by removing some of the old range stuff

Browse Source
This commit is contained in:
Neil Brown 2009-02-03 11:52:12 +00:00
parent 6afbb80e9f
commit bb6937433f
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
common/TestUtils.hs
View File

@ -250,7 +250,8 @@ makeAssignPattern v e = tag3 A.Assign DontCare [v] $ tag2 A.ExpressionList DontC
-- | Creates a literal string expression from the given 'String'.
makeLiteralStringRain :: String -> A.Expression
makeLiteralStringRain str = A.Literal emptyMeta (A.List A.Byte) (A.ListLiteral emptyMeta (map makeLiteralChar str))
makeLiteralStringRain str = A.Literal emptyMeta (A.List A.Byte) (A.ArrayListLiteral emptyMeta $
A.Several emptyMeta (map (A.Only emptyMeta . makeLiteralChar) str))
where
makeLiteralChar :: Char -> A.Expression
makeLiteralChar c = A.Literal emptyMeta A.Byte (A.ByteLiteral emptyMeta [c] {-(show (fromEnum c))-})
@ -274,7 +275,6 @@ data ExprHelper =
| DirVar A.Direction String
| Lit A.Expression
| EHTrue
| Range A.Type ExprHelper ExprHelper
| Func String [ExprHelper]
buildExprPattern :: ExprHelper -> Pattern
@ -288,8 +288,6 @@ buildExpr (Var n) = A.ExprVariable emptyMeta $ variable n
buildExpr (DirVar dir n) = A.ExprVariable emptyMeta $ (A.DirectedVariable emptyMeta dir $ variable n)
buildExpr (Lit e) = e
buildExpr EHTrue = A.True emptyMeta
buildExpr (Range t begin end) = A.ExprConstr emptyMeta $ A.RangeConstr emptyMeta t
(buildExpr begin) (buildExpr end)
buildExpr (Func f es) = A.FunctionCall emptyMeta (simpleName f) (map buildExpr es)
-- | A simple definition of a variable