X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=reducer.hs;h=a565745971366b1829b5040506bcf9868fdc15cb;hb=07fd74a9679d6a2480f773573f631a1c55d2c74c;hp=925e7f6a73fa87befc62701f6cb4d75ec841d7d6;hpb=344076ec6d72b65849e05c746e0429c927c7d43d;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

diff --git a/reducer.hs b/reducer.hs
index 925e7f6..a565745 100644
--- a/reducer.hs
+++ b/reducer.hs
@@ -137,7 +137,7 @@ rippleBuffer ::
 rippleBuffer (State buf) (inp, shift) = (State buf', out1, out2)
   where
     -- Write value
-    next_valids              = (map fst buf) << True
+    next_valids              = (map (\(a, b) -> a) buf) << True
     buf''                    = zipWith selects buf next_valids
     selects cell next_valid  = if (not (fst cell)) && next_valid then
                                  (True, inp)