1 files changed, 2 insertions, 2 deletions

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 ""