HList 0.3.0 → 0.3.0.1
raw patch · 3 files changed
+22/−21 lines, 3 filesdep +HList
Dependencies added: HList
Files
- ChangeLog +4/−0
- HList.cabal +13/−12
- examples/runexamples.hs +5/−9
ChangeLog view
@@ -1,3 +1,7 @@+05 Nov 2013+ Release 0.3.0.1+ fix `cabal test'+ 01 Nov 2013 Release 0.3 pun quasiquote supports nested records
HList.cabal view
@@ -1,5 +1,5 @@ Name: HList-Version: 0.3.0+Version: 0.3.0.1 Category: Data Synopsis: Heterogeneous lists Description: HList is a record system providing strongly typed heterogenous lists, records,@@ -14,7 +14,7 @@ Maintainer: oleg@pobox.com Data-files: README, ChangeLog-Cabal-version: >= 1.8+Cabal-version: >= 1.10 Tested-With: GHC==7.6.2, GHC==7.7 Build-Type: Simple @@ -39,12 +39,10 @@ location: http://code.haskell.org/HList - library- Build-Depends: base >= 4 && < 5, template-haskell, ghc-prim,- mtl- Exposed-modules: Data.HList,+ Build-Depends: base >= 4 && < 5, template-haskell, ghc-prim, mtl + Exposed-modules: Data.HList, Data.HList.CommonMain, Data.HList.Data, Data.HList.FakePrelude,@@ -66,11 +64,12 @@ Data.HList.TIP, Data.HList.TypeEqO, Data.HList.Variant+ Default-Language: Haskell2010 Ghc-Options: -Wall -fno-warn-missing-signatures - Extensions: ConstraintKinds+ Default-Extensions: ConstraintKinds DataKinds EmptyDataDecls FlexibleContexts@@ -87,18 +86,20 @@ UndecidableInstances if impl(ghc >= 7.7)- Extensions: AllowAmbiguousTypes- StandaloneDeriving+ Default-Extensions: AllowAmbiguousTypes+ StandaloneDeriving Test-Suite examples Type: exitcode-stdio-1.0 Ghc-Options: -threaded Main-Is: examples/runexamples.hs- Build-Depends: base, hspec == 1.7.*, directory, filepath, process, syb, cmdargs,- lens+ Default-Language: Haskell2010+ Build-Depends: base, hspec == 1.7.*, directory, filepath,+ process, syb, cmdargs, lens, HList, mtl Test-Suite doctests Type: exitcode-stdio-1.0 Ghc-Options: -threaded Main-Is: examples/rundoctests.hs- Build-Depends: base, doctest >= 0.8+ Build-Depends: base, doctest >= 0.8, process+ Default-Language: Haskell2010
examples/runexamples.hs view
@@ -10,10 +10,7 @@ import Control.Monad main = do- es <- getDirectoryContents "examples"-- print es -- very dumb es <- filterM (\e -> allM@@ -26,16 +23,16 @@ mapM_ runghcwith es -runghcwith f = describe f $ it "ok" $ checkResult $+runghcwith f = describe f $ it "ok" $ do let ex = ("examples" </>) let inFile = ex (takeBaseName f) outFile = dropExtension inFile ++ ".out" refFile = dropExtension inFile ++ ".ref" - (ec, stdout, stderr) <- readProcessWithExitCode "cabal" ["repl","-v0",- "--ghc-options", "-w -fcontext-stack=50 -iexamples -v0 "]- (":load " ++ inFile ++ "\nmain")+ (ec, stdout, stderr) <- readProcessWithExitCode "cabal" ["repl","examples",+ "-v0", "--ghc-options", "-w -fcontext-stack=50 -iexamples -v0"]+ (":set -i\n:set -iexamples\n:load " ++ inFile ++ "\nmain") writeFile outFile stdout @@ -44,8 +41,7 @@ readProcess "diff" ["-b", outFile, refFile] "" else return Nothing return (ec, stderr, diff)- where- checkResult io = io `shouldReturn` (ExitSuccess, "", Just "")+ `shouldReturn` (ExitSuccess, "", Just "")