From 4468519808b5d07461d2463fd5765d278fb54ebf Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Sun, 12 May 2019 18:03:05 +0200 Subject: [PATCH] Debug output for sourceFiles --- src/Handler/Utils/Zip.hs | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/src/Handler/Utils/Zip.hs b/src/Handler/Utils/Zip.hs index 5df1d3ba7..1bacbda1e 100644 --- a/src/Handler/Utils/Zip.hs +++ b/src/Handler/Utils/Zip.hs @@ -95,10 +95,14 @@ modifyFileTitle :: Monad m => (FilePath -> FilePath) -> Conduit File m File modifyFileTitle f = mapC $ \x@File{..} -> x{ fileTitle = f fileTitle } -- Takes FileInfo and if it is a ZIP-Archive, extract files, otherwiese yield fileinfo -sourceFiles :: (MonadResource m, MonadThrow m, MonadIO m) => FileInfo -> Source m File +sourceFiles :: (MonadLogger m, MonadResource m, MonadThrow m, MonadIO m) => FileInfo -> Source m File sourceFiles fInfo - | mimeType == "application/zip" = fileSource fInfo =$= void consumeZip - | otherwise = yieldM $ acceptFile fInfo + | mimeType == "application/zip" = do + $logInfoS "sourceFiles" "Unpacking ZIP" + fileSource fInfo =$= void consumeZip + | otherwise = do + $logDebugS "sourceFiles" [st|Not unpacking file of type #{decodeUtf8 mimeType}|] + yieldM $ acceptFile fInfo where mimeType = defaultMimeLookup (fileName fInfo)