From 6983304b9d11e78ebf5fd21c835dd04c776102f5 Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Mon, 21 Aug 2023 13:38:20 +0200 Subject: Download and determine the digest --- app/SlackBuilder/Updater.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'app/SlackBuilder/Updater.hs') 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 -- cgit v1.2.3