show a little output
This commit is contained in:
parent
d86c99fabd
commit
a8f6c6d6dd
1 changed files with 1 additions and 0 deletions
|
@ -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"
|
||||||
|
|
Loading…
Reference in a new issue