gistfile1.hsc

lexer = T.makeTokenParser L.emptyDef
lexeme = T.lexeme lexer
parens = T.parens lexer
comma = T.comma lexer
colon = T.colon lexer
float = T.float lexer
symbol = T.symbol lexer
whiteSpace = T.whiteSpace lexer

-- Parser(s)
commandParser = Command 
                <$> (char '@' *> many alphaNum) 
                <*> optional (parens (many alphaNum `sepBy` comma))
                <*> (colon *> (many (noneOf ":\n") `sepBy` symbol "::"))