hakyll 4.8.0.0 → 4.8.0.1

raw patch · 2 files changed

+12/−4 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• hakyll.cabal +1/−1
• tests/Hakyll/Core/Provider/Metadata/Tests.hs +11/−3

@@ -1,5 +1,5 @@ Name:    hakyll-Version: 4.8.0.0+Version: 4.8.0.1  Synopsis: A static website compiler library Description:

@@ -11,7 +11,7 @@ import           Hakyll.Core.Metadata import           Hakyll.Core.Provider.Metadata import           Test.Framework                (Test, testGroup)-import           Test.HUnit                    (Assertion, (@=?))+import           Test.HUnit                    (Assertion, (@=?), assertFailure) import           TestSuite.Util  @@ -25,7 +25,7 @@ -------------------------------------------------------------------------------- testPage01 :: Assertion testPage01 =-    Right (meta [("foo", "bar")], "qux\n") @=? parsePage+    (meta [("foo", "bar")], "qux\n") `expectRight` parsePage     "---\n\     \foo: bar\n\     \---\n\@@ -35,7 +35,7 @@ -------------------------------------------------------------------------------- testPage02 :: Assertion testPage02 =-    Right (meta [("description", descr)], "Hello I am dog\n") @=?+    (meta [("description", descr)], "Hello I am dog\n") `expectRight`     parsePage     "---\n\     \description: A long description that would look better if it\n\@@ -52,3 +52,11 @@ -------------------------------------------------------------------------------- meta :: Yaml.ToJSON a => [(String, a)] -> Metadata meta pairs = HMS.fromList [(T.pack k, Yaml.toJSON v) | (k, v) <- pairs]+++--------------------------------------------------------------------------------+-- | This is useful when the 'Left' side of 'Either' doesn't have an 'Eq'+-- instance.+expectRight :: (Eq b, Show a, Show b) => b -> Either a b -> Assertion+expectRight _        (Left  err) = assertFailure (show err)+expectRight expected (Right res) = expected @=? res