From 001804756eefd24bedb2ac55170e9df4827f2964 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom.smeding@gmail.com>
Date: Sun, 15 Apr 2018 10:20:03 +0200
Subject: Quieter

---
 Optimiser.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Optimiser.hs')

diff --git a/Optimiser.hs b/Optimiser.hs
index a381bac..a71fd2b 100644
--- a/Optimiser.hs
+++ b/Optimiser.hs
@@ -126,7 +126,7 @@ specialLoops (ILoop [IAdd v off2] off1 : rest)
     | odd v = ISet 0 off1 : specialLoops rest
 specialLoops (ILoop inss off : rest)
     | all isIAdd inss,
-      sum (map (\(IAdd v _) -> v) $ filter ((== off) . offsetOf) inss) == -1 =
+      sum (map (\(IAdd v _) -> v) $ filter ((== off) . offsetOf) inss) == negate 1 =
         let others = map (\(IAdd v o) -> (v, o)) $ filter ((/= off) . offsetOf) inss
             dests = nub $ map snd others
             copies = [ICopy off d (sum $ map fst $ filter ((== d) . snd) others) | d <- dests]
-- 
cgit v1.2.3-54-g00ecf