hspec-expectations 0.7.1 → 0.7.2
raw patch · 3 files changed
+15/−20 lines, 3 filesdep ~basePVP ok
version bump matches the API change (PVP)
Dependency ranges changed: base
API changes (from Hackage documentation)
Files
- LICENSE +1/−1
- hspec-expectations.cabal +13/−8
- src/Test/Hspec/Expectations.hs +1/−11
LICENSE view
@@ -1,4 +1,4 @@-Copyright (c) 2011-2013 Simon Hengel <sol@typeful.net>+Copyright (c) 2011-2015 Simon Hengel <sol@typeful.net> Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal
hspec-expectations.cabal view
@@ -1,15 +1,20 @@+-- This file has been generated from package.yaml by hpack version 0.5.4.+--+-- see: https://github.com/sol/hpack+ name: hspec-expectations-version: 0.7.1+version: 0.7.2 synopsis: Catchy combinators for HUnit description: Catchy combinators for HUnit: <https://github.com/sol/hspec-expectations#readme>+bug-reports: https://github.com/sol/hspec-expectations/issues license: MIT license-file: LICENSE-copyright: (c) 2011-2013 Simon Hengel+copyright: (c) 2011-2015 Simon Hengel author: Simon Hengel <sol@typeful.net> maintainer: Simon Hengel <sol@typeful.net> build-type: Simple category: Testing-cabal-version: >= 1.8+cabal-version: >= 1.10 homepage: https://github.com/sol/hspec-expectations#readme source-repository head@@ -17,15 +22,15 @@ location: https://github.com/sol/hspec-expectations library- ghc-options:- -Wall+ hs-source-dirs:+ src+ ghc-options: -Wall build-depends: base == 4.* , HUnit- hs-source-dirs:- src exposed-modules: Test.Hspec.Expectations- , Test.Hspec.Expectations.Contrib+ Test.Hspec.Expectations.Contrib other-modules: Test.Hspec.Expectations.Matcher+ default-language: Haskell2010
src/Test/Hspec/Expectations.hs view
@@ -60,7 +60,6 @@ #ifdef HAS_SOURCE_LOCATIONS -import GHC.SrcLoc import GHC.Stack #define with_loc(NAME, TYPE) NAME :: (?loc :: CallStack) => TYPE@@ -74,16 +73,7 @@ type Expectation = Test.HUnit.Assertion with_loc(expectationFailure, String -> Expectation)-expectationFailure = Test.HUnit.assertFailure . (location ++)- where- location :: String-#ifdef HAS_SOURCE_LOCATIONS- location = case reverse (getCallStack ?loc) of- (_, loc) : _ -> srcLocFile loc ++ ":" ++ (show $ srcLocStartLine loc) ++ ":\n"- _ -> ""-#else- location = ""-#endif+expectationFailure = Test.HUnit.assertFailure with_loc(expectTrue, String -> Bool -> Expectation) expectTrue msg b = unless b (expectationFailure msg)