From a8f6c6d6dde47a786661e2fb56971bd6817b1f21 Mon Sep 17 00:00:00 2001 From: nek0 Date: Sun, 20 Nov 2016 07:54:15 +0100 Subject: [PATCH] show a little output --- Migrations/0.1.3.3-0.1.4.0/Migration.hs | 1 + 1 file changed, 1 insertion(+) 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"