From 8484cfab1b1d27ba7046798c2821c138e4f5fabf Mon Sep 17 00:00:00 2001 From: aarne Date: Tue, 5 Sep 2006 12:14:13 +0000 Subject: starting GFCC format --- src/GF/UseGrammar/Linear.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'src/GF/UseGrammar/Linear.hs') diff --git a/src/GF/UseGrammar/Linear.hs b/src/GF/UseGrammar/Linear.hs index f18091810..260bfb9a2 100644 --- a/src/GF/UseGrammar/Linear.hs +++ b/src/GF/UseGrammar/Linear.hs @@ -153,6 +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 _ -> composOp exp t where alls = allParamValues g -- cgit v1.2.3