From ab683f8410ed8021998e58ac516be15dcfc41664 Mon Sep 17 00:00:00 2001
From: alex <alex@slab.org>
Date: Fri, 7 Jun 2024 11:45:37 +0100
Subject: [PATCH] support - for rests/gaps in mininotation

---
 src/Sound/Tidal/ParseBP.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Sound/Tidal/ParseBP.hs b/src/Sound/Tidal/ParseBP.hs
index 9dd8785c..e69fa669 100644
--- 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