diff --git a/test/SpecHelper.hs b/test/SpecHelper.hs index 2f63bf3..eae12d2 100644 --- a/test/SpecHelper.hs +++ b/test/SpecHelper.hs @@ -65,5 +65,4 @@ withApp :: SpecWith (TestApp App) -> Spec withApp = before $ pure (App, id) shouldBe :: (HasCallStack, Eq a, Show a) => a -> a -> YesodExample site () -shouldBe a b = - a `HspecLifted.shouldBe` b +shouldBe a b = a `HspecLifted.shouldBe` b diff --git a/test/Yesod/Paginator/WidgetsSpec.hs b/test/Yesod/Paginator/WidgetsSpec.hs index dfb9e67..87e4d49 100644 --- a/test/Yesod/Paginator/WidgetsSpec.hs +++ b/test/Yesod/Paginator/WidgetsSpec.hs @@ -203,5 +203,8 @@ spec = withApp $ do ] buildParams pageParamName pageNumber params - `shouldBe` - [("p", "3"), ("foo", "bar"), ("ids[]", "1"), ("ids[]", "2")] + `shouldBe` [ ("p", "3") + , ("foo", "bar") + , ("ids[]", "1") + , ("ids[]", "2") + ]