Permalink
Browse files

tidy

  • Loading branch information...
yaxu committed Sep 24, 2012
1 parent 80d3972 commit a71aa878eae891a72098805391b46ff2f4e52186
Showing with 0 additions and 3 deletions.
  1. +0 −3 Pattern.hs
View
@@ -97,9 +97,6 @@ bits (_, Just 0) = []
bits (o, Just d) = (o, Just d'):bits (o+d',Just (d-d'))
where d' = min ((fromIntegral $ (floor o) + 1) - o) d
---combine :: [Pattern a] -> Pattern a
---combine ps = Sequence $ \r -> concatMap (\p -> (foo p) r) ps
-
combine :: [Pattern a] -> Pattern a
combine ps = foldr f silence ps
where f (Sequence a) (Sequence b) = Sequence $ \r -> (a r) ++ (b r)

0 comments on commit a71aa87

Please sign in to comment.