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"