From 2b9ceaead3f3cd80e973cccecb9a3eebc51154f7 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Sun, 17 Jul 2016 19:21:56 +0200 Subject: Fixes for GHC 8.0.1 --- server/test/Thermoprint/ServerSpec.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'server/test/Thermoprint/ServerSpec.hs') diff --git a/server/test/Thermoprint/ServerSpec.hs b/server/test/Thermoprint/ServerSpec.hs index 028ba2d..8af210d 100644 --- a/server/test/Thermoprint/ServerSpec.hs +++ b/server/test/Thermoprint/ServerSpec.hs @@ -145,7 +145,7 @@ spec = withSetup $ do drafts `shouldReturn` [] dId <- draftCreate Nothing mempty draft dId `shouldReturn` (Nothing, mempty) - drafts `shouldReturn` [(dId, mempty)] + drafts `shouldReturn` [(dId, Nothing :: Maybe DraftTitle)] p <- generate arbitrary draftReplace dId (Just "Title") p draft dId `shouldReturn` (Just "Title", p) @@ -154,6 +154,6 @@ spec = withSetup $ do draftDelete dId drafts `shouldReturn` [] where - Client{..} = mkClient' $ BaseUrl Http "localhost" 3000 + Client{..} = mkClient' $ BaseUrl Http "localhost" 3000 "" -- cgit v1.2.3