annotated-exception 0.3.0.1 → 0.3.0.2
raw patch · 3 files changed
+15/−9 lines, 3 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
ChangeLog.md view
@@ -1,5 +1,10 @@ # Changelog for `annotated-exception` +## 0.3.0.2++- [#32](https://github.com/parsonsmatt/annotated-exception/pull/32)+ - Fixed the tests for GHC 9.10+ ## 0.3.0.1 - [#31](https://github.com/parsonsmatt/annotated-exception/pull/31)
annotated-exception.cabal view
@@ -1,11 +1,11 @@ cabal-version: 1.12 --- This file has been generated from package.yaml by hpack version 0.36.0.+-- This file has been generated from package.yaml by hpack version 0.37.0. -- -- see: https://github.com/sol/hpack name: annotated-exception-version: 0.3.0.1+version: 0.3.0.2 synopsis: Exceptions, with checkpoints and context. description: Please see the README on Github at <https://github.com/parsonsmatt/annotated-exception#readme> category: Control
test/Control/Exception/AnnotatedSpec.hs view
@@ -37,6 +37,9 @@ emptyAnnotation :: e -> AnnotatedException e emptyAnnotation = pure +omitEmptyLines :: String -> [String]+omitEmptyLines = filter (/= "") . lines+ spec :: Spec spec = do describe "toException" $ do@@ -56,18 +59,18 @@ AnnotatedException ["hello", "goodbye"] (SomeException TestException) describe "displayException" $ do+ it "is identical on SomeException" $ do+ omitEmptyLines (displayException TestException)+ `shouldBe` omitEmptyLines (displayException (SomeException TestException)) it "is reasonably nice to look at" $ do- lines (displayException (AnnotatedException [] TestException))+ omitEmptyLines (displayException (AnnotatedException [] TestException)) `shouldBe` [ "! AnnotatedException !" , "Underlying exception type: TestException"- , "" , "show:" , "\tTestException"- , "" , "displayException:" , "\tTestException"- , "" , "(no callstack available)" ] it "is reasonably nice to look at" $ do@@ -90,16 +93,14 @@ let resultLines = [ "! AnnotatedException !" , "Underlying exception type: TestException"- , "" , "show:" , "\tTestException"- , "" , "displayException:" , "\tTestException" , "Annotations:" , "\t * Annotation @[Char] \"asdf\"" ]- take (length resultLines) (lines (displayException (exn :: AnnotatedException SomeException))) `shouldBe`+ take (length resultLines) (omitEmptyLines (displayException (exn :: AnnotatedException SomeException))) `shouldBe` resultLines describe "AnnotatedException can fromException a" $ do