summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--fsmgr.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/fsmgr.hs b/fsmgr.hs
index c290a74..3a59a53 100644
--- a/fsmgr.hs
+++ b/fsmgr.hs
@@ -296,8 +296,8 @@ shakeRules = do
296 "_build/*.btrfs" %> \out -> do 296 "_build/*.btrfs" %> \out -> do
297 let cfgFile = (out -<.> "yaml.canon") 297 let cfgFile = (out -<.> "yaml.canon")
298 need [cfgFile] 298 need [cfgFile]
299 cfg <- read <$> readFile' cfgFile 299 cfg <- readEither <$> readFile' cfgFile
300 buildRoot cfg out 300 either (error . (("Error parsing file: " ++ cfgFile ++ ": ") ++)) (flip buildRoot out) cfg
301 "*.btrfs" %> \out -> do 301 "*.btrfs" %> \out -> do
302 need ["_build" </> out] 302 need ["_build" </> out]
303 -- WithStderr False needed for `cp` to interact with the tty 303 -- WithStderr False needed for `cp` to interact with the tty