bump version to 0.18.3 (#12)

stack.yaml

@@ -1,3 +1,3 @@
-resolver: lts-13.8
+resolver: lts-18.3
 packages:
   - '.'

stack.yaml.lock

@@ -6,7 +6,7 @@
 packages: []
 snapshots:
 - completed:
-    size: 495203
-    url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/13/8.yaml
-    sha256: 91139b0de6b320b13e27d5e6e6c368e239974b06fb9dc86d8d96da08697972ac
-  original: lts-13.8
+    size: 585603
+    url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/18/3.yaml
+    sha256: 694573e96dca34db5636edb1fe6c96bb233ca0f9fb96c1ead1671cdfa9bd73e9
+  original: lts-18.3

test/AppSpec.hs

@@ -4,7 +4,6 @@ module AppSpec where
 import           Control.Exception (throwIO)
 import           Network.HTTP.Client (Manager, newManager, defaultManagerSettings)
 import           Network.HTTP.Types
-import           Network.Wai (Application)
 import           Network.Wai.Handler.Warp
 import           Servant
 import           Servant.Client
@@ -29,9 +28,9 @@ spec = do
       it "throws a 404 for missing items" $ \ env -> do
         try env (getItem 42) `shouldThrow` errorsWithStatus notFound404
 
-errorsWithStatus :: Status -> ServantError -> Bool
+errorsWithStatus :: Status -> ClientError -> Bool
 errorsWithStatus status servantError = case servantError of
-  FailureResponse response -> responseStatusCode response == status
+  FailureResponse _ response -> responseStatusCode response == status
   _ -> False
 
 withClient :: IO Application -> SpecWith ClientEnv -> SpecWith ()
@@ -40,7 +39,7 @@ withClient x innerSpec =
     flip aroundWith innerSpec $ \ action -> \ httpManager -> do
       testWithApplication x $ \ port -> do
         let testBaseUrl = BaseUrl Http "localhost" port ""
-        action (ClientEnv httpManager testBaseUrl Nothing)
+        action (mkClientEnv httpManager testBaseUrl)
 
 type Host = (Manager, BaseUrl)