summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Parser.hs7
1 files changed, 5 insertions, 2 deletions
diff --git a/src/Parser.hs b/src/Parser.hs
index d4c5a13..1402926 100644
--- a/src/Parser.hs
+++ b/src/Parser.hs
@@ -26,11 +26,14 @@ type TestParser = ParsecT Void TestStream (State (Set ProcName))
type TestStream = TL.Text
+skipLineComment :: TestParser ()
+skipLineComment = L.skipLineComment $ TL.pack "#"
+
scn :: TestParser ()
-scn = L.space space1 empty empty
+scn = L.space space1 skipLineComment empty
sc :: TestParser ()
-sc = L.space (void $ takeWhile1P Nothing f) empty empty
+sc = L.space (void $ takeWhile1P Nothing f) skipLineComment empty
where f x = x == ' ' || x == '\t'
wordChar :: TestParser (Token TestStream)