Start9/registry
2
0
Fork 0
mirror of https://github.com/Start9Labs/registry.git synced 2026-04-04 21:59:43 +00:00
Code Issues Packages Projects Releases Wiki Activity

lift version

Browse Source
This commit is contained in:
Aiden McClelland
2022-09-07 16:46:43 -06:00
parent 61e9cd169d
commit b7d2464419
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Util.hs
View File

@@ -104,7 +104,7 @@ getVersionFromQuery = do
Nothing -> pure Nothing Nothing -> pure Nothing
Just v -> case readMaybe v of Just v -> case readMaybe v of
Nothing -> sendResponseStatus status400 ("Invalid Version" :: Text) Nothing -> sendResponseStatus status400 ("Invalid Version" :: Text)
Just t -> pure t Just t -> pure Just t
getHashFromQuery :: MonadHandler m => m (Maybe Text) getHashFromQuery :: MonadHandler m => m (Maybe Text)
getHashFromQuery = lookupGetParam "hash" getHashFromQuery = lookupGetParam "hash"