From 8e78deb5ec3ac9bd4f594bc1df37faaad3414f10 Mon Sep 17 00:00:00 2001 From: Alex McLean Date: Thu, 16 Jan 2025 14:26:05 +0000 Subject: [PATCH] make tactus a pattern. More to do! --- src/Sound/Tidal/Pattern.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Sound/Tidal/Pattern.hs b/src/Sound/Tidal/Pattern.hs index f7bf4d4f..c669ff64 100644 --- 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)