From b84c129e2f71a74c7691c8c8c2c8c7519b0f3598 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Tue, 5 Sep 2006 15:15:02 +0000
Subject: eliminated one-element suffix lists in GFCC

---
 src/GF/UseGrammar/Linear.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/GF/UseGrammar')

diff --git a/src/GF/UseGrammar/Linear.hs b/src/GF/UseGrammar/Linear.hs
index 260bfb9a2..85bae5b0d 100644
--- a/src/GF/UseGrammar/Linear.hs
+++ b/src/GF/UseGrammar/Linear.hs
@@ -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
-- 
cgit v1.2.3