parsergen 0.2.0.2 → 0.2.0.3

raw patch · 3 files changed

+6/−3 lines, 3 files

Files

parsergen.cabal +1/−1
src/ParserGen/Gen.hs +1/−1
src/ParserGen/Types.hs +4/−1

parsergen.cabal view

@@ -1,5 +1,5 @@ Name:     parsergen-Version:  0.2.0.2+Version:  0.2.0.3 Synopsis: TH parser generator for splitting bytestring into fixed-width fields  Description:

src/ParserGen/Gen.hs view

@@ -81,7 +81,7 @@             (parser, _) <- getFieldParserUnparser df Nothing             return $ case getFieldName dc df of                 Just n -> BindS (VarP $ prime n) parser-                _      -> NoBindS parser+                _      -> BindS WildP            parser          result :: Stmt         result = NoBindS (AppE (VarE . mkName $ "return")

src/ParserGen/Types.hs view

@@ -76,7 +76,10 @@ getFieldHasRepeat = isJust . fieldRepeat  getFieldIsIgnored :: DataField -> Bool-getFieldIsIgnored = isNothing . fieldName+getFieldIsIgnored df = case fieldParser df of+    CustomParser    _ -> False+    HardcodedString _ -> False+    _                 -> isNothing (fieldName df)  data ParserType     = CustomParser    Exp    -- user provided parser, ex: issue