Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

labels must consist of at least one character

  • Loading branch information...
commit 28ed404e52f6e79e966a7bed76d2126f5567b10a 1 parent 2077084
Nate Young authored

Showing 1 changed file with 1 addition and 1 deletion. Show diff stats Hide diff stats

  1. +1 1  Language/QuickPiet/Parser.hs
2  Language/QuickPiet/Parser.hs
@@ -32,7 +32,7 @@ comment = do char '#'
32 32 -- a label is a : followed by zero or more alpha-numeric chars
33 33 label :: GenParser Char st Command
34 34 label = do char ':'
35   - name <- many alphaNum
  35 + name <- many1 alphaNum
36 36 return (Label name)
37 37
38 38 action :: GenParser Char st Command

0 comments on commit 28ed404

Please sign in to comment.
Something went wrong with that request. Please try again.