From 889f5e7beb13205c57ae4e783c38a237c15fde09 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 3 Apr 2019 16:57:51 -0400 Subject: remove unidiomatic parens before `func` --- src/Propellor/Property/Cron.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src') diff --git a/src/Propellor/Property/Cron.hs b/src/Propellor/Property/Cron.hs index c732b5d3..cac0b78d 100644 --- a/src/Propellor/Property/Cron.hs +++ b/src/Propellor/Property/Cron.hs @@ -36,7 +36,7 @@ job :: Desc -> Times -> User -> FilePath -> String -> Property DebianLike job desc times (User u) cddir command = combineProperties ("cronned " ++ desc) $ props & Apt.serviceInstalledRunning "cron" & Apt.installed ["util-linux", "moreutils"] - & (cronjobfile desc times) `File.hasContent` + & cronjobfile desc times `File.hasContent` [ case times of Times _ -> "" _ -> "#!/bin/sh\nset -e" @@ -59,14 +59,14 @@ job desc times (User u) cddir command = combineProperties ("cronned " ++ desc) $ `File.mode` combineModes (readModes ++ executeModes) -- Use a separate script because it makes the cron job name -- prettier in emails, and also allows running the job manually. - & (scriptfile desc) `File.hasContent` + & scriptfile desc `File.hasContent` [ "#!/bin/sh" , "# Generated by propellor" , "set -e" , "flock -n " ++ shellEscape (cronjobfile desc times) ++ " sh -c " ++ shellEscape cmdline ] - & (scriptfile desc) `File.mode` combineModes (readModes ++ executeModes) + & scriptfile desc `File.mode` combineModes (readModes ++ executeModes) where cmdline = "cd " ++ cddir ++ " && ( " ++ command ++ " )" -- cgit v1.2.3