X-Git-Url: https://git.stderr.nl/gitweb?p=matthijs%2Fmaster-project%2Fc%CE%BBash.git;a=blobdiff_plain;f=reducer.hs;h=dfbc8424474fd2db2148c138abad5b999eae0d53;hp=a4d4bbb23dc4b7ef081a18fc24c997cb6e119abe;hb=3f39038911a675d91b5147761e16296d3ab25743;hpb=7f6a8f38eea6aec322fad713d9b8dd67ffd0a9de

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