@@ -63,7 +63,7 @@ class HasServer layout where
6363 route :: Proxy layout -> Server layout -> RoutingApplication
6464
6565instance 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
6767 route Proxy action request
6868 | null (pathInfo request) && requestMethod request == methodGet = do
6969 e <- runEitherT action
@@ -120,8 +120,8 @@ instance FromJSON result => HasClient (Get result) where
120120 innerResponse <- liftIO $ __withGlobalManager $ \ manager ->
121121 Http.Client.httpLbs innerRequest manager
122122 when (Http.Client.responseStatus innerResponse /= ok200) $
123− left ("kraken daemon returned: " ++ show (Http.Client.responseStatus innerResponse))
124− maybe (left "kraken daemon returned invalid json") return $
123+ left ("HTTP GET request failed with status: " ++ show (Http.Client.responseStatus innerResponse))
124+ maybe (left "HTTP GET request returned invalid json") return $
125125 decode' (Http.Client.responseBody innerResponse)
126126
127127instance (KnownSymbol path, HasClient sublayout) => HasClient (path :> sublayout) where