Use pure instead of return

This commit is contained in:
Taylor Fausak
2023-02-12 18:14:02 -06:00
parent 175894ce21
commit 96f552d595
2 changed files with 3 additions and 2 deletions

View File

@@ -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

View File

@@ -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 =