search

music-suite / music-score

This repo has been merged into: https://github.com/music-suite/music-suite
http://music-suite.github.io
BSD 3-Clause "New" or "Revised" License
52 stars 10 forks source link

Test meta_annotations blocks forever #316

Closed hanshoglund closed 9 years ago

meditans commented 9 years ago

Is this the problem which causes the fact that this example: https://github.com/music-suite/music-preludes/blob/master/examples/annotatations.hs freezes during execution? Do you have any idea why?

hanshoglund commented 9 years ago

Probably related, I'll have a look.

hanshoglund commented 9 years ago

This works, so the issue is probably in withMeta.

>>> fmap getAnnotation $ fmap (`atTime` 1) $ ((unwrapMeta $ (asScore s)^.meta) :: Maybe (Reactive Annotation))
Just []
>>> fmap getAnnotation $ fmap (`atTime` (-1)) $ ((unwrapMeta $ (asScore s)^.meta) :: Maybe (Reactive Annotation))
Just []
>>> fmap getAnnotation $ fmap (`atTime` (2)) $ ((unwrapMeta $ (asScore s)^.meta) :: Maybe (Reactive Annotation))
Just []
>>> fmap getAnnotation $ fmap (`atTime` (0.4)) $ ((unwrapMeta $ (asScore s)^.meta) :: Maybe (Reactive Annotation))
Just ["h"]