From 1cad7bc8e3b73454db559ddd441333f5deb74f05 Mon Sep 17 00:00:00 2001 From: alex Date: Thu, 16 Jan 2025 21:54:48 +0000 Subject: [PATCH] setTactus to take Maybe --- src/Sound/Tidal/Pattern.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Sound/Tidal/Pattern.hs b/src/Sound/Tidal/Pattern.hs index 9ca2aef9..30438cd0 100644 --- a/src/Sound/Tidal/Pattern.hs +++ b/src/Sound/Tidal/Pattern.hs @@ -62,8 +62,8 @@ instance NFData a => NFData (Pattern a) pattern :: (State -> [Event a]) -> Pattern a pattern f = Pattern f Nothing Nothing -setTactus :: Pattern Rational -> Pattern a -> Pattern a -setTactus r p = p {tactus = Just $ r} +setTactus :: Maybe (Pattern Rational) -> Pattern a -> Pattern a +setTactus r p = p {tactus = r} setTactusFrom :: Pattern b -> Pattern a -> Pattern a setTactusFrom a b = b {tactus = tactus a} @@ -72,7 +72,7 @@ withTactus :: (Rational -> Rational) -> Pattern a -> Pattern a withTactus f p = p {tactus = fmap (fmap f) $ tactus p} steps :: Pattern Rational -> Pattern a -> Pattern a -steps target p@(Pattern _ (Just t) _) = setTactus target $ fast (target / t) p +steps target p@(Pattern _ (Just t) _) = setTactus (Just target) $ fast (target / t) p -- raise error? steps _ p = p