1
0
forked from GitHub/gf-core

eliminated one-element suffix lists in GFCC

This commit is contained in:
aarne
2006-09-05 15:15:02 +00:00
parent 62c21539db
commit b84c129e2f
2 changed files with 2 additions and 2 deletions

View File

@@ -153,7 +153,7 @@ unoptimizeCanonMod g = convMod where
ps <- mapM term2patt vs
return $ T ty [Cas [p] t | (p,t) <- zip ps ts]
FV ts -> liftM FV $ mapM exp ts
I _ -> comp t
I _ -> comp t
_ -> composOp exp t
where
alls = allParamValues g