support - for rests/gaps in mininotation

tidalcycles · Jun 7, 2024 · ab683f8 · ab683f8
1 parent 7ba484b
commit ab683f8
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Sound/Tidal/ParseBP.hs b/src/Sound/Tidal/ParseBP.hs
@@ -223,7 +223,7 @@ parseBP_E s = toE parsed
 parseTPat :: Parseable a => String -> Either ParseError (TPat a)
 parseTPat = runParser (pSequence f' Prelude.<* eof) (0 :: Int) ""
   where f' = do tPatParser
-             <|> do symbol "~" <?> "rest"
+             <|> do oneOf "~-" <?> "rest"
                     return TPat_Silence
 
 cP :: (Enumerable a, Parseable a) => String -> Pattern a