mirror of
https://github.com/tfausak/github-release.git
synced 2025-07-23 04:13:02 +02:00
Use pure
instead of return
This commit is contained in:
@@ -40,6 +40,7 @@ common library
|
||||
-Weverything
|
||||
-Wno-all-missed-specialisations
|
||||
-Wno-implicit-prelude
|
||||
-Wno-missed-specialisations
|
||||
-Wno-missing-deriving-strategies
|
||||
-Wno-missing-exported-signatures
|
||||
-Wno-missing-safe-haskell-mode
|
||||
|
@@ -240,7 +240,7 @@ getOwnerRepo rawOwner rawRepo = do
|
||||
Nothing -> pure ()
|
||||
Just _ -> IO.hPutStrLn IO.stderr "Ignoring --owner option."
|
||||
pure (anOwner, drop 1 aRepo)
|
||||
return (anOwner, aRepo)
|
||||
pure (anOwner, aRepo)
|
||||
|
||||
getTag ::
|
||||
(Aeson.FromJSON a) =>
|
||||
@@ -261,7 +261,7 @@ getTag manager aToken anOwner aRepo aTag = do
|
||||
}
|
||||
response <- Client.httpLbs request manager
|
||||
let body = Client.responseBody response
|
||||
return (Aeson.eitherDecode body)
|
||||
pure (Aeson.eitherDecode body)
|
||||
|
||||
authorizationHeader :: String -> HTTP.Header
|
||||
authorizationHeader aToken =
|
||||
|
Reference in New Issue
Block a user