aboutsummaryrefslogtreecommitdiff
path: root/compiler/src/Processors.hs
diff options
context:
space:
mode:
Diffstat (limited to 'compiler/src/Processors.hs')
-rw-r--r--compiler/src/Processors.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/src/Processors.hs b/compiler/src/Processors.hs
index 6ab4eb5..faa2f43 100644
--- a/compiler/src/Processors.hs
+++ b/compiler/src/Processors.hs
@@ -25,6 +25,7 @@ module Processors
25 25
26 26
27import Control.Exception (Exception, throwIO) 27import Control.Exception (Exception, throwIO)
28import Control.Monad (when)
28import Data.Function ((&)) 29import Data.Function ((&))
29import Data.Char (toLower) 30import Data.Char (toLower)
30import Data.List (break) 31import Data.List (break)
@@ -106,7 +107,7 @@ withCached :: Cache
106withCached processor inputPath outputPath = 107withCached processor inputPath outputPath =
107 do 108 do
108 isDir <- doesDirectoryExist outputPath 109 isDir <- doesDirectoryExist outputPath
109 if isDir then removePathForcibly outputPath else noop 110 when isDir $ removePathForcibly outputPath
110 111
111 fileExists <- doesFileExist outputPath 112 fileExists <- doesFileExist outputPath
112 if fileExists then 113 if fileExists then
@@ -117,7 +118,6 @@ withCached processor inputPath outputPath =
117 update 118 update
118 119
119 where 120 where
120 noop = return ()
121 update = processor inputPath outputPath 121 update = processor inputPath outputPath
122 skip = putStrLn $ "Skipping:\t" ++ outputPath 122 skip = putStrLn $ "Skipping:\t" ++ outputPath
123 123