Fix #1008, Handle columns that contain spaces

2018-12-12 12:07:30 -05:00
parent d78410473e
commit 36f86827ee
6 changed files with 26 additions and 1 deletions
@@ -74,7 +74,7 @@ pStar = toS <$> (string "*" $> ("*"::ByteString))
 pFieldName :: Parser Text
 pFieldName =
  intercalate "-" . map toS <$>
-  (many1 (letter <|> digit <|> oneOf "_") `sepBy1` dash) <?>
+  (many1 (letter <|> digit <|> oneOf "_ ") `sepBy1` dash) <?>
  "field name (* or [a..z0..9_])"
  where
    isDash :: GenParser Char st ()