ich777/github-release
1
0
Fork 0
mirror of https://github.com/tfausak/github-release.git synced 2025-07-23 12:23:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

Use pure instead of return

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

1
github-release.cabal
View File

@@ -40,6 +40,7 @@ common library
-Weverything -Weverything
-Wno-all-missed-specialisations -Wno-all-missed-specialisations
-Wno-implicit-prelude -Wno-implicit-prelude
-Wno-missed-specialisations
-Wno-missing-deriving-strategies -Wno-missing-deriving-strategies
-Wno-missing-exported-signatures -Wno-missing-exported-signatures
-Wno-missing-safe-haskell-mode -Wno-missing-safe-haskell-mode

4
source/library/GitHubRelease.hs
View File

@@ -240,7 +240,7 @@ getOwnerRepo rawOwner rawRepo = do
Nothing -> pure () Nothing -> pure ()
Just _ -> IO.hPutStrLn IO.stderr "Ignoring --owner option." Just _ -> IO.hPutStrLn IO.stderr "Ignoring --owner option."
pure (anOwner, drop 1 aRepo) pure (anOwner, drop 1 aRepo)
return (anOwner, aRepo) pure (anOwner, aRepo)
getTag :: getTag ::
(Aeson.FromJSON a) => (Aeson.FromJSON a) =>
@@ -261,7 +261,7 @@ getTag manager aToken anOwner aRepo aTag = do
} }
response <- Client.httpLbs request manager response <- Client.httpLbs request manager
let body = Client.responseBody response let body = Client.responseBody response
return (Aeson.eitherDecode body) pure (Aeson.eitherDecode body)
authorizationHeader :: String -> HTTP.Header authorizationHeader :: String -> HTTP.Header
authorizationHeader aToken = authorizationHeader aToken =