forked from GitHub/gf-core
eliminated one-element suffix lists in GFCC
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user