@@ -63,7 +63,7 @@ class HasServer layout where
63 route :: Proxy layout -> Server layout -> RoutingApplication
63 route :: Proxy layout -> Server layout -> RoutingApplication
65instance ToJSON result => HasServer (Get result) where
65instance ToJSON result => HasServer (Get result) where
66− type Server (Get result) = (EitherT (Int, String) IO result)
66+ type Server (Get result) = EitherT (Int, String) IO result
67 route Proxy action request
67 route Proxy action request
68 | null (pathInfo request) && requestMethod request == methodGet = do
68 | null (pathInfo request) && requestMethod request == methodGet = do
69 e <- runEitherT action
69 e <- runEitherT action
@@ -120,8 +120,8 @@ instance FromJSON result => HasClient (Get result) where
120 innerResponse <- liftIO $ __withGlobalManager $ \ manager ->
120 innerResponse <- liftIO $ __withGlobalManager $ \ manager ->
121 Http.Client.httpLbs innerRequest manager
121 Http.Client.httpLbs innerRequest manager
122 when (Http.Client.responseStatus innerResponse /= ok200) $
122 when (Http.Client.responseStatus innerResponse /= ok200) $
123− left ("kraken daemon returned: " ++ show (Http.Client.responseStatus innerResponse))
123+ left ("HTTP GET request failed with status: " ++ show (Http.Client.responseStatus innerResponse))
124− maybe (left "kraken daemon returned invalid json") return $
124+ maybe (left "HTTP GET request returned invalid json") return $
125 decode' (Http.Client.responseBody innerResponse)
125 decode' (Http.Client.responseBody innerResponse)
127instance (KnownSymbol path, HasClient sublayout) => HasClient (path :> sublayout) where
127instance (KnownSymbol path, HasClient sublayout) => HasClient (path :> sublayout) where