From ee9958c2a51e4f328ebce1edf656a3f63a048a6c Mon Sep 17 00:00:00 2001 From: Aiden McClelland Date: Wed, 7 Sep 2022 16:51:32 -0600 Subject: [PATCH] slow af but works --- src/Handler/Util.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Handler/Util.hs b/src/Handler/Util.hs index 0c92a43..4c41cb7 100644 --- a/src/Handler/Util.hs +++ b/src/Handler/Util.hs @@ -104,7 +104,7 @@ getVersionFromQuery = do Nothing -> pure Nothing Just v -> case readMaybe v of Nothing -> sendResponseStatus status400 ("Invalid Version" :: Text) - Just t -> pure Just t + Just t -> pure (Just t) getHashFromQuery :: MonadHandler m => m (Maybe Text) getHashFromQuery = lookupGetParam "hash"