on master help sign in
tiny cleanup
3932569Mark Wotton
src/Roboservant/Client.hs+1
@@ -1,5 +1,6 @@
1{-# LANGUAGE RankNTypes #-}
1{-# LANGUAGE RankNTypes #-}
2{-# LANGUAGE TypeOperators #-}
2{-# LANGUAGE TypeOperators #-}
3+{-# LANGUAGE NamedFieldPuns #-}
3{-# LANGUAGE DataKinds #-}
4{-# LANGUAGE DataKinds #-}
4{-# LANGUAGE AllowAmbiguousTypes #-}
5{-# LANGUAGE AllowAmbiguousTypes #-}
5{-# LANGUAGE DataKinds #-}
6{-# LANGUAGE DataKinds #-}
test/Spec.hs−1
@@ -36,7 +36,6 @@ import Servant.Client(ClientEnv, mkClientEnv, baseUrlPort, parseBaseUrl,HasClien
36import Network.Wai(Application)
36import Network.Wai(Application)
37import qualified Network.Wai.Handler.Warp as Warp
37import qualified Network.Wai.Handler.Warp as Warp
38import Network.HTTP.Client (newManager, defaultManagerSettings)
38import Network.HTTP.Client (newManager, defaultManagerSettings)
39−import Servant(Endpoints,HasServer)
40
39
41main :: IO ()
40main :: IO ()
42main = hspec spec
41main = hspec spec