Skip to content

Commit 0324922

Browse files
authored
Merge pull request #1199 from TristanCacqueray/parse-rolled
Add rolled and rolledBy to tidal-parse
2 parents ef8dee3 + c68f080 commit 0324922

File tree

2 files changed

+6
-0
lines changed

2 files changed

+6
-0
lines changed

tidal-parse/src/Sound/Tidal/Parse.hs

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -365,6 +365,7 @@ genericTransformations =
365365
<|> $(fromTidal "degrade")
366366
<|> $(fromTidal "arpeggiate")
367367
<|> $(fromTidal "trigger")
368+
<|> $(fromTidal "rolled")
368369
<|> constParser <*!> parser
369370
<|>
370371
-- more complex possibilities that would involve overlapped Parse instances if they were instances
@@ -811,6 +812,7 @@ instance Parse (Pattern Time -> ControlPattern -> ControlPattern) where
811812
parser =
812813
$(fromTidal "hurry")
813814
<|> $(fromTidal "loopAt")
815+
<|> $(fromTidal "rolledBy")
814816
<|> (parser :: H (Pattern Double -> Pattern Time -> ControlPattern -> ControlPattern)) <*!> parser
815817

816818
instance Parse ((ControlPattern -> ControlPattern) -> ControlPattern -> ControlPattern) where

tidal-parse/test/Sound/Tidal/TidalParseTest.hs

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -305,3 +305,7 @@ run =
305305
it "parses an example with sseqs" $
306306
"s (sseqs [(\"tink\",\" x x\"),(\"feel\", \"x x \")])"
307307
`parsesTo` (s (sseqs [("tink", " x x"), ("feel", "x x ")]))
308+
309+
it "parses an example with times" $
310+
"rolledBy 0.45 $ n \"<a'm9'8 e'7sus4'8>\""
311+
`parsesTo` (rolledBy 0.45 $ n "<a'm9'8 e'7sus4'8>")

0 commit comments

Comments
 (0)