diff --git a/src/Handler/Apps.hs b/src/Handler/Apps.hs index bfec546..9ba31f3 100644 --- a/src/Handler/Apps.hs +++ b/src/Handler/Apps.hs @@ -30,10 +30,8 @@ import System.FilePath ( (<.>) import System.Posix.Files ( fileSize , getFileStatus ) -import Yesod.Core ( MonadHandler(HandlerSite) - , TypedContent +import Yesod.Core ( TypedContent , addHeader - , getYesod , notFound , respondSource , sendChunkBS @@ -76,11 +74,6 @@ pureLog = liftA2 (*>) ($logInfo . show) pure logRet :: ToJSON a => Handler a -> Handler a logRet = (>>= liftA2 (*>) ($logInfo . decodeUtf8 . BS.toStrict . encode) pure) -inject :: MonadHandler m => ReaderT (HandlerSite m) m a -> m a -inject action = do - env <- getYesod - runReaderT action env - data FileExtension = FileExtension FilePath (Maybe String) instance Show FileExtension where show (FileExtension f Nothing ) = f