Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

labels must consist of at least one character

  • Loading branch information...
commit 28ed404e52f6e79e966a7bed76d2126f5567b10a 1 parent 2077084
@youngnh authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  Language/QuickPiet/Parser.hs
View
2  Language/QuickPiet/Parser.hs
@@ -32,7 +32,7 @@ comment = do char '#'
-- a label is a : followed by zero or more alpha-numeric chars
label :: GenParser Char st Command
label = do char ':'
- name <- many alphaNum
+ name <- many1 alphaNum
return (Label name)
action :: GenParser Char st Command
Please sign in to comment.
Something went wrong with that request. Please try again.