Start9/registry
2
0
Fork 0
mirror of https://github.com/Start9Labs/registry.git synced 2026-03-26 02:11:53 +00:00
Code Issues Packages Projects Releases Wiki Activity

slow af but works

Browse Source
This commit is contained in:
Aiden McClelland
2022-09-07 16:51:32 -06:00
parent b7d2464419
commit ee9958c2a5
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 Just t Just t -> pure (Just t)
getHashFromQuery :: MonadHandler m => m (Maybe Text) getHashFromQuery :: MonadHandler m => m (Maybe Text)
getHashFromQuery = lookupGetParam "hash" getHashFromQuery = lookupGetParam "hash"