summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
34cf5a1)
Cλash doesn't like mapping the fst builtin yet, so avoid that for now.
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 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)
buf'' = zipWith selects buf next_valids
selects cell next_valid = if (not (fst cell)) && next_valid then
(True, inp)