From 01c8343d7e87bfc1f1c8c3488e100be3b8c3e130 Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Sun, 3 Feb 2008 15:40:49 +0000
Subject: [PATCH] Simplified an expression in ArrayUsageCheck

---
 checks/ArrayUsageCheck.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/checks/ArrayUsageCheck.hs b/checks/ArrayUsageCheck.hs
index 5230a38..14adbd1 100644
--- a/checks/ArrayUsageCheck.hs
+++ b/checks/ArrayUsageCheck.hs
@@ -121,7 +121,7 @@ checkArrayUsage (m,p) = mapM_ (checkIndexes m) $ Map.toList $
     showFlattenedExp :: FlattenedExp -> m String
     showFlattenedExp (Const n) = return $ show n
     showFlattenedExp (Scale n ((A.Variable _ vn),vi))
-      = do vn' <- getRealName vn >>* (\s -> if vi == 0 then s else s ++ replicate vi '\'' )
+      = do vn' <- getRealName vn >>* (++ replicate vi '\'')
            case n of
              1  -> return vn'
              -1 -> return $ "-" ++ vn'