Better vertical whitespace

aslakg · Apr 19, 2016 · c537407 · c537407
1 parent 4990668
commit c537407
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 1 deletion.
diff --git a/src/BuildManager.hs b/src/BuildManager.hs
@@ -17,8 +17,10 @@ import qualified Report
 import qualified TheMasterPlan as TMP
 
 
+
 -- CONFIGURATION
 
+
 data Config = Config
     { _artifactDirectory :: FilePath
     , _files :: [FilePath]
@@ -49,8 +51,10 @@ artifactDirectory =
     Path.stuffDirectory </> "build-artifacts" </> (Pkg.versionToString Compiler.version)
 
 
+
 -- RUN A BUILD
 
+
 type Task a =
   ExceptT Error (StateT [Phase] IO) a
 
@@ -71,8 +75,10 @@ run task =
 
 
 
+
 -- TIMELINE
 
+
 data Timeline = Timeline
     { _start :: Time.POSIXTime
     , _phases :: [Phase]
@@ -119,8 +125,10 @@ phaseToString overallDuration indent (Phase tag start subphases end) =
     ++ concatMap (phaseToString duration (indent + 1)) subphases
 
 
+
 -- ERRORS
 
+
 data Error
     = CompilerErrors FilePath String [Compiler.Error]
     | CorruptedArtifact FilePath

diff --git a/src/Main.hs b/src/Main.hs
@@ -20,7 +20,6 @@ import TheMasterPlan (ProjectGraph(..), ProjectData(..))
 main :: IO ()
 main =
   do  setLocaleEncoding utf8
-
       setNumCapabilities =<< getNumProcessors
 
       result <- BM.run make