Simplified an expression in ArrayUsageCheck

2008-02-03 15:40:49 +00:00 · 2008-02-03 15:40:49 +00:00 · 01c8343d7e
commit 01c8343d7e
parent 41194f757f
1 changed files with 1 additions and 1 deletions
--- 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'