From b84c9bbb7c9db688118ad756c1c43ef034fd98fb Mon Sep 17 00:00:00 2001
From: Mario Lang <mlang@delysid.org>
Date: Sun, 13 Sep 2015 00:46:49 +0200
Subject: Follow some hlint suggestions.

---
 src/Propellor/Shim.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Propellor/Shim.hs')

diff --git a/src/Propellor/Shim.hs b/src/Propellor/Shim.hs
index a3c8e701..e2941420 100644
--- a/src/Propellor/Shim.hs
+++ b/src/Propellor/Shim.hs
@@ -77,7 +77,7 @@ installFile :: FilePath -> FilePath -> IO ()
 installFile top f = do
 	createDirectoryIfMissing True destdir
 	nukeFile dest
-	createLink f dest `catchIO` (const copy)
+	createLink f dest `catchIO` const copy
   where
 	copy = void $ boolSystem "cp" [Param "-a", Param f, Param dest]
 	destdir = inTop top $ takeDirectory f
-- 
cgit v1.3-2-g0d8e