git.iko.soy/docker-hs
on master help sign in
Removes unnecessary type sig
b9fcd6cDeni Bertovic
src/Docker.hs+1−1
compare with master
unifiedsplit
@@ -19,7 +19,7 @@ getDockerVersion = do
19 let request = fromJust $ mkHttpRequest GET VersionEndpoint opts
19 let request = fromJust $ mkHttpRequest GET VersionEndpoint opts
20 response <- liftIO $ httpHandler request
20 response <- liftIO $ httpHandler request
21 let body = responseBody response
21 let body = responseBody response
22− let res = decode body :: Maybe DockerVersion
22+ let res = decode body
23 return $ fromJust res
23 return $ fromJust res
24
24
25listContainers :: ListOpts -> DockerT IO ([Container])
25listContainers :: ListOpts -> DockerT IO ([Container])