Merge pull request #1199 from TristanCacqueray/parse-rolled

Add rolled and rolledBy to tidal-parse

Author: yaxu

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

@@ -365,6 +365,7 @@ genericTransformations =
     <|> $(fromTidal "degrade")
     <|> $(fromTidal "arpeggiate")
     <|> $(fromTidal "trigger")
+    <|> $(fromTidal "rolled")
     <|> constParser <*!> parser
     <|>
     -- more complex possibilities that would involve overlapped Parse instances if they were instances
@@ -811,6 +812,7 @@ instance Parse (Pattern Time -> ControlPattern -> ControlPattern) where
   parser =
     $(fromTidal "hurry")
       <|> $(fromTidal "loopAt")
+      <|> $(fromTidal "rolledBy")
       <|> (parser :: H (Pattern Double -> Pattern Time -> ControlPattern -> ControlPattern)) <*!> parser
 
 instance Parse ((ControlPattern -> ControlPattern) -> ControlPattern -> ControlPattern) where

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

@@ -305,3 +305,7 @@ run =
     it "parses an example with sseqs" $
       "s (sseqs [(\"tink\",\" x x\"),(\"feel\", \"x x \")])"
         `parsesTo` (s (sseqs [("tink", " x x"), ("feel", "x x ")]))
+
+    it "parses an example with times" $
+      "rolledBy 0.45 $ n \"<a'm9'8 e'7sus4'8>\""
+        `parsesTo` (rolledBy 0.45 $ n "<a'm9'8 e'7sus4'8>")