From 6bc29b5db2c8de62e2d9f21c25fa8dcd1ec5a75b Mon Sep 17 00:00:00 2001
From: pacien
Date: Fri, 27 Dec 2019 10:32:35 +0100
Subject: compiler: extracting funcs

---
 compiler/src/Processors.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'compiler/src/Processors.hs')

diff --git a/compiler/src/Processors.hs b/compiler/src/Processors.hs
index a296215..aaa178f 100644
--- a/compiler/src/Processors.hs
+++ b/compiler/src/Processors.hs
@@ -73,7 +73,7 @@ type FileProcessor =
 
 copyFileProcessor :: FileProcessor
 copyFileProcessor inputPath outputPath =
-  (putStrLn $ "Copying: " ++ outputPath)
+  (putStrLn $ "Copying:\t" ++ outputPath)
   >> ensureParentDir (flip System.Directory.copyFile) outputPath inputPath
 
 eitherIOToIO :: Either String (IO a) -> IO a
@@ -99,7 +99,7 @@ type StaticImageWriter = FilePath -> DynamicImage -> IO ()
 
 resizeStaticGeneric :: StaticImageReader -> StaticImageWriter -> Resolution -> FileProcessor
 resizeStaticGeneric reader writer maxRes inputPath outputPath =
-  (putStrLn $ "Generating: " ++ outputPath)
+  (putStrLn $ "Generating:\t" ++ outputPath)
   >>  reader inputPath
   >>= eitherResToIO
   >>= return . (fitDynamicImage maxRes)
@@ -142,7 +142,7 @@ withCached processor inputPath outputPath =
   where
     noop = return ()
     update = processor inputPath outputPath
-    skip = putStrLn $ "Skipping: " ++ outputPath
+    skip = putStrLn $ "Skipping:\t" ++ outputPath
 
     isOutdated :: FilePath -> FilePath -> IO Bool
     isOutdated ref target =
-- 
cgit v1.2.3