make tactus a pattern. More to do!

tidalcycles · Jan 16, 2025 · 8e78deb · 8e78deb
1 parent bec7416
commit 8e78deb
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Sound/Tidal/Pattern.hs b/src/Sound/Tidal/Pattern.hs
@@ -54,7 +54,7 @@ data State = State {arc      :: Arc,
                    }
 
 -- | A datatype representing events taking place over time
-data Pattern a = Pattern {query :: State -> [Event a], tactus :: Maybe Rational, pureValue :: Maybe a}
+data Pattern a = Pattern {query :: State -> [Event a], tactus :: Pattern Rational, pureValue :: Maybe a}
   deriving (Generic, Functor)
 
 instance NFData a => NFData (Pattern a)