From a2cfd42e569e2f8d0a7011573f72ba0876ae16e8 Mon Sep 17 00:00:00 2001 From: Andrew Cady Date: Thu, 11 Jul 2019 11:44:14 -0400 Subject: fix whitespace --- lib/Kiki.hs | 35 ++++++++++++++++++----------------- 1 file changed, 18 insertions(+), 17 deletions(-) diff --git a/lib/Kiki.hs b/lib/Kiki.hs index 2af7779..d6a8b3a 100644 --- a/lib/Kiki.hs +++ b/lib/Kiki.hs @@ -371,28 +371,29 @@ ipsecCertPath = ipsecPath "certs" makeFileWriter :: (FilePath -> FilePath) -> (IO ()) -> FileWriter makeFileWriter p c = FileWriter - { pathMaker = p - , fileWriterCommit = c - , write = write' writeFile - , writeL = write' L.writeFile - , writeL077 = - \f bs -> do - old_umask <- setFileCreationMask 0o077 - write' L.writeFile f bs - setFileCreationMask old_umask - } + { pathMaker = p + , fileWriterCommit = c + , write = write' writeFile + , writeL = write' L.writeFile + , writeL077 = + \f bs -> do + old_umask <- setFileCreationMask 0o077 + write' L.writeFile f bs + setFileCreationMask old_umask + } where write' wr (p -> f) bs = do createDirectoryIfMissing True $ takeDirectory f wr f bs -data FileWriter = FileWriter { - pathMaker :: FilePath -> FilePath, - fileWriterCommit :: IO (), - write :: FilePath -> String -> IO (), - writeL :: FilePath -> Char8.ByteString -> IO (), - writeL077 :: FilePath -> Char8.ByteString -> IO FileMode -} +data FileWriter = + FileWriter + { pathMaker :: FilePath -> FilePath + , fileWriterCommit :: IO () + , write :: FilePath -> String -> IO () + , writeL :: FilePath -> Char8.ByteString -> IO () + , writeL077 :: FilePath -> Char8.ByteString -> IO FileMode + } getMkPathAndCommit :: FilePath -> IO (FileWriter) getMkPathAndCommit destdir = do -- cgit v1.2.3