diff --git a/Migrations/0.1.3.3-0.1.4.0/Migration.hs b/Migrations/0.1.3.3-0.1.4.0/Migration.hs index 1c4d696..5e87ef5 100755 --- a/Migrations/0.1.3.3-0.1.4.0/Migration.hs +++ b/Migrations/0.1.3.3-0.1.4.0/Migration.hs @@ -57,6 +57,7 @@ main = do return img _ -> error err Right img -> do -- This branch contains "classical" image formats like bmp or png + putStrLn path return $ convertRGBA8 img let thumbName = FP.takeBaseName path ++ "_thumb.png" prevName = FP.takeBaseName path ++ "_preview.png"