show a little output

This commit is contained in:
nek0 2016-11-20 07:54:15 +01:00
parent d86c99fabd
commit a8f6c6d6dd

View file

@ -57,6 +57,7 @@ main = do
return img return img
_ -> error err _ -> error err
Right img -> do -- This branch contains "classical" image formats like bmp or png Right img -> do -- This branch contains "classical" image formats like bmp or png
putStrLn path
return $ convertRGBA8 img return $ convertRGBA8 img
let thumbName = FP.takeBaseName path ++ "_thumb.png" let thumbName = FP.takeBaseName path ++ "_thumb.png"
prevName = FP.takeBaseName path ++ "_preview.png" prevName = FP.takeBaseName path ++ "_preview.png"