From b7d24644193f12d8777424c158cc8f8d9cfaa69a Mon Sep 17 00:00:00 2001 From: Aiden McClelland Date: Wed, 7 Sep 2022 16:46:43 -0600 Subject: [PATCH] lift version --- 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 75af8d5..0c92a43 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 t + Just t -> pure Just t getHashFromQuery :: MonadHandler m => m (Maybe Text) getHashFromQuery = lookupGetParam "hash"