nubseq

yaxu · Feb 26, 2013 · a5aca3c · a5aca3c
1 parent 25216f3
commit a5aca3c
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/Pattern.hs b/Pattern.hs
@@ -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)