parsergen 0.2.0.6 → 0.2.0.7
raw patch · 3 files changed
+7/−7 lines, 3 filesdep ~QuickCheckdep ~test-frameworkdep ~test-framework-hunitnew-uploader
Dependency ranges changed: QuickCheck, test-framework, test-framework-hunit, test-framework-quickcheck2
Files
- parsergen.cabal +5/−5
- src/ParserGen/ParseQuote.hs +2/−0
- src/ParserGen/Repack.hs +0/−2
parsergen.cabal view
@@ -1,5 +1,5 @@ Name: parsergen-Version: 0.2.0.6+Version: 0.2.0.7 Synopsis: TH parser generator for splitting bytestring into fixed-width fields Description:@@ -56,10 +56,10 @@ Build-depends: HUnit >= 1.2 && < 1.3,- QuickCheck >= 2.4 && < 2.6,- test-framework >= 0.4 && < 0.7,- test-framework-hunit >= 0.2 && < 0.3,- test-framework-quickcheck2 >= 0.2 && < 0.3,+ QuickCheck >= 2.4 && < 2.8,+ test-framework >= 0.4 && < 0.9,+ test-framework-hunit >= 0.2 && < 0.4,+ test-framework-quickcheck2 >= 0.2 && < 0.4, -- Copied from regular dependencies... base >= 3 && < 5, bytestring >= 0.9 && < 0.11,
src/ParserGen/ParseQuote.hs view
@@ -10,6 +10,7 @@ import Data.Char (chr) import Data.List (isPrefixOf) import Language.Haskell.TH as TH+import Language.Haskell.TH.Syntax as TH import System.Directory (getCurrentDirectory) import System.FilePath.Posix ((</>), takeDirectory) import Text.Parsec hiding (spaces)@@ -34,6 +35,7 @@ pwd <- runIO $ getCurrentDirectory let templatePath = (takeDirectory $ pwd </> filename) </> templateName body <- runIO $ readFile templatePath+ TH.addDependentFile templatePath return (newPos templateName 1 1, body) parseInQ :: ParserQ v -> (SourcePos, String) -> Q v
src/ParserGen/Repack.hs view
@@ -30,7 +30,6 @@ repackCmds <- mkRepackCmds dc withNames bsVar <- newName "bs"- undef <- [|undefined|] btbT <- [t|ByteString -> ByteString|] foldInit <- [|($(varE bsVar) , [])|] fold <- foldM executeRepackCmd foldInit repackCmds@@ -113,4 +112,3 @@ in (next, ps ++ $(return f) $(return $ VarE name)) |] where n = getFieldWidth df- r = getFieldHasRepeat df