Permalink
Browse files

nubseq

  • Loading branch information...
1 parent 25216f3 commit a5aca3c36a5fb0c4e90974ba9caaec212770c701 @yaxu committed Feb 26, 2013
Showing with 2 additions and 0 deletions.
  1. +2 −0 Pattern.hs
View
@@ -266,3 +266,5 @@ points :: [Event a] -> [Time]
points [] = []
points (((s,d), _):es) = s:(s+d):(points es)
+nubSeq :: Eq a => Sequence a -> Sequence a
+nubSeq p = Sequence $ \r -> nub (range p r)

0 comments on commit a5aca3c

Please sign in to comment.