nanospec 0.1.0 → 0.2.0

raw patch · 3 files changed

+11/−4 lines, 3 filesdep ~basedep ~silently

Dependency ranges changed: base, silently

Files

nanospec.cabal +2/−2
src/Test/Hspec.hs +8/−1
test/Test/HspecSpec.hs +1/−1

nanospec.cabal view

@@ -1,5 +1,5 @@ name:             nanospec-version:          0.1.0+version:          0.2.0 license:          MIT license-file:     LICENSE copyright:        (c) 2012 Simon Hengel@@ -42,4 +42,4 @@   build-depends:       base     , hspec >= 1.3-    , silently+    , silently >= 1.2.4

src/Test/Hspec.hs view

@@ -40,8 +40,15 @@ add :: SpecTree -> SpecM () add s = SpecM () [s] +instance Functor SpecM where+  fmap = undefined++instance Applicative SpecM where+  pure a = SpecM a []+  (<*>) = ap+ instance Monad SpecM where-  return a             = SpecM a []+  return = pure   SpecM a xs >>= f = case f a of     SpecM b ys -> SpecM b (xs ++ ys)

test/Test/HspecSpec.hs view

@@ -27,7 +27,7 @@     failure = H.expect "failure" False  runSpec :: H.Spec -> IO [String]-runSpec s = lines . fst <$> capture (H.hspec s `E.catch` ignore)+runSpec s = lines <$> capture_ (H.hspec s `E.catch` ignore)   where     ignore :: ExitCode -> IO ()     ignore _ = return ()