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

aggregate query functions

Browse Source
This commit is contained in:
Lucy Cifferello
2021-09-21 23:51:45 -06:00
committed by Keagan McClelland
parent d3c4772b05
commit 23659236a2
11 changed files with 392 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/Handler/Icons.hs
View File

@@ -78,7 +78,7 @@ getLicenseR appId = do
Nothing -> notFound
Just p -> do
respondSource typePlain (sendChunkBS =<< handleS9ErrT (getLicense appMgrDir p ext))
where ext = Extension (toS appId) :: Extension "s9pk"
where ext = Extension (show appId) :: Extension "s9pk"
getInstructionsR :: AppIdentifier -> Handler TypedContent
getInstructionsR appId = do
@@ -91,4 +91,4 @@ getInstructionsR appId = do
Nothing -> notFound
Just p -> do
respondSource typePlain (sendChunkBS =<< handleS9ErrT (getInstructions appMgrDir p ext))
where ext = Extension (toS appId) :: Extension "s9pk"
where ext = Extension (show appId) :: Extension "s9pk"