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

remove dead code

Browse Source
This commit is contained in:
Keagan McClelland
2021-09-27 15:22:29 -06:00
parent 69e3fe1a24
commit 4dc632c80f
1 changed files with 0 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/Handler/Marketplace.hs
View File

@@ -451,15 +451,6 @@ mapDependencyMetadata domain metadata (appId, depInfo) = do
} }
) )
-- decodeIcon :: (MonadHandler m, KnownSymbol a) => FilePath -> FilePath -> Extension a -> m URL
-- decodeIcon appmgrPath depPath e@(Extension icon) = do
-- icon' <- handleS9ErrT $ getIcon appmgrPath depPath e
-- case eitherDecode icon' of
-- Left e' -> do
-- $logInfo $ T.pack e'
-- sendResponseStatus status400 e'
-- Right (i' :: URL) -> pure $ i' <> T.pack icon
decodeInstructions :: (MonadUnliftIO m, MonadHandler m, MonadThrow m) => FilePath -> FilePath -> S9PK -> m Text decodeInstructions :: (MonadUnliftIO m, MonadHandler m, MonadThrow m) => FilePath -> FilePath -> S9PK -> m Text
decodeInstructions appmgrPath depPath package = do decodeInstructions appmgrPath depPath package = do
sourceInstructions appmgrPath depPath package (\bs -> sinkMem (bs .| CT.decode CT.utf8)) sourceInstructions appmgrPath depPath package (\bs -> sinkMem (bs .| CT.decode CT.utf8))