diff options
| author | Gregor Kleen <pngwjpgh@users.noreply.github.com> | 2016-07-17 19:21:56 +0200 |
|---|---|---|
| committer | Gregor Kleen <pngwjpgh@users.noreply.github.com> | 2016-07-17 19:21:56 +0200 |
| commit | 2b9ceaead3f3cd80e973cccecb9a3eebc51154f7 (patch) | |
| tree | df2378943480647606b6a06f62c0f4b8b2ab406d /server/test | |
| parent | ac4cf4a0a494eafe55364f816569c517684fdf32 (diff) | |
| download | thermoprint-2b9ceaead3f3cd80e973cccecb9a3eebc51154f7.tar thermoprint-2b9ceaead3f3cd80e973cccecb9a3eebc51154f7.tar.gz thermoprint-2b9ceaead3f3cd80e973cccecb9a3eebc51154f7.tar.bz2 thermoprint-2b9ceaead3f3cd80e973cccecb9a3eebc51154f7.tar.xz thermoprint-2b9ceaead3f3cd80e973cccecb9a3eebc51154f7.zip | |
Fixes for GHC 8.0.1
Diffstat (limited to 'server/test')
| -rw-r--r-- | server/test/Thermoprint/ServerSpec.hs | 4 |
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 | |||
| 145 | drafts `shouldReturn` [] | 145 | drafts `shouldReturn` [] |
| 146 | dId <- draftCreate Nothing mempty | 146 | dId <- draftCreate Nothing mempty |
| 147 | draft dId `shouldReturn` (Nothing, mempty) | 147 | draft dId `shouldReturn` (Nothing, mempty) |
| 148 | drafts `shouldReturn` [(dId, mempty)] | 148 | drafts `shouldReturn` [(dId, Nothing :: Maybe DraftTitle)] |
| 149 | p <- generate arbitrary | 149 | p <- generate arbitrary |
| 150 | draftReplace dId (Just "Title") p | 150 | draftReplace dId (Just "Title") p |
| 151 | draft dId `shouldReturn` (Just "Title", p) | 151 | draft dId `shouldReturn` (Just "Title", p) |
| @@ -154,6 +154,6 @@ spec = withSetup $ do | |||
| 154 | draftDelete dId | 154 | draftDelete dId |
| 155 | drafts `shouldReturn` [] | 155 | drafts `shouldReturn` [] |
| 156 | where | 156 | where |
| 157 | Client{..} = mkClient' $ BaseUrl Http "localhost" 3000 | 157 | Client{..} = mkClient' $ BaseUrl Http "localhost" 3000 "" |
| 158 | 158 | ||
| 159 | 159 | ||