From 890ca965072754678ed31b904225f73aace98157 Mon Sep 17 00:00:00 2001
From: Matthijs Kooijman <matthijs@stdin.nl>
Date: Tue, 13 Apr 2010 16:47:36 +0200
Subject: [PATCH] Replace fst with a lambda in a map.
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

Cλash doesn't like mapping the fst builtin yet, so avoid that for now.
---
 reducer.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)
-- 
2.30.2