projects
/
matthijs
/
master-project
/
cλash.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
4cab3f3
)
map fst works again after latest fixes to clash
author
christiaanb
<christiaan.baaij@gmail.com>
Thu, 17 Jun 2010 14:19:46 +0000
(16:19 +0200)
committer
christiaanb
<christiaan.baaij@gmail.com>
Thu, 17 Jun 2010 14:19:46 +0000
(16:19 +0200)
reducer.hs
patch
|
blob
|
history
diff --git
a/reducer.hs
b/reducer.hs
index a4d4bbb23dc4b7ef081a18fc24c997cb6e119abe..dfbc8424474fd2db2148c138abad5b999eae0d53 100644
(file)
--- a/
reducer.hs
+++ b/
reducer.hs
@@
-133,7
+133,7
@@
rippleBuffer ::
rippleBuffer (State buf) (inp, shift) = (State buf', out1, out2)
where
-- Write value
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)
buf'' = zipWith selects buf next_valids
selects cell next_valid = if (not (fst cell)) && next_valid then
(True, inp)