fix whitespace

1 files 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