diff options
| author | Eugen Wissner <belka@caraus.de> | 2023-08-21 13:38:20 +0200 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2023-08-21 13:38:20 +0200 |
| commit | 6983304b9d11e78ebf5fd21c835dd04c776102f5 (patch) | |
| tree | b0a89cafc0a71ee5c4d94b872fcd6f68d3adb29f /app/SlackBuilder/Updater.hs | |
| parent | 258604f22d2bc50480aa4eb57778ab96c97cf1c6 (diff) | |
| download | slackbuilder-6983304b9d11e78ebf5fd21c835dd04c776102f5.tar.gz | |
Download and determine the digest
Diffstat (limited to 'app/SlackBuilder/Updater.hs')
| -rw-r--r-- | app/SlackBuilder/Updater.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/app/SlackBuilder/Updater.hs b/app/SlackBuilder/Updater.hs index 7965a5c..6663bb7 100644 --- a/app/SlackBuilder/Updater.hs +++ b/app/SlackBuilder/Updater.hs @@ -36,7 +36,7 @@ import SlackBuilder.CommandLine import SlackBuilder.Trans import qualified Data.Aeson.KeyMap as KeyMap import GHC.Records (HasField(..)) -import Control.Monad.Trans.Reader (ReaderT(..), asks) +import Control.Monad.Trans.Reader (asks) import Control.Monad.IO.Class (MonadIO(..)) newtype PackagistPackage = PackagistPackage @@ -77,7 +77,7 @@ instance Aeson.FromJSON GhData where parseJSON (Aeson.Object keyMap) | Just data' <- KeyMap.lookup "data" keyMap = GhData <$> Aeson.withObject "GhData" (.: "repository") data' - parseJSON v = fail "data key not found in the response" + parseJSON _ = fail "data key not found in the response" data GhVariables = GhVariables { name :: Text |