Improve whitespace

aslakg · Apr 19, 2016 · 813c47f · 813c47f
1 parent c537407
commit 813c47f
Showing 1 changed file with 10 additions and 10 deletions.
diff --git a/src/Pipeline/Crawl/Package.hs b/src/Pipeline/Crawl/Package.hs
@@ -40,12 +40,11 @@ initEnv root desc solution =
 
 
 dfsFromFiles
-    :: FilePath
-    -> Solution.Solution
-    -> Desc.Description
-    -> [FilePath]
-    -> BM.Task ([Module.Raw], PackageGraph)
-
+  :: FilePath
+  -> Solution.Solution
+  -> Desc.Description
+  -> [FilePath]
+  -> BM.Task ([Module.Raw], PackageGraph)
 dfsFromFiles root solution desc filePaths =
   do  env <- initEnv root desc solution
 
@@ -63,10 +62,10 @@ dfsFromFiles root solution desc filePaths =
 
 
 dfsFromExposedModules
-    :: FilePath
-    -> Solution.Solution
-    -> Desc.Description
-    -> BM.Task PackageGraph
+  :: FilePath
+  -> Solution.Solution
+  -> Desc.Description
+  -> BM.Task PackageGraph
 dfsFromExposedModules root solution desc =
   do  env <- initEnv root desc solution
       let unvisited = map (Unvisited Nothing) (Desc.exposed desc)
@@ -205,6 +204,7 @@ readPackageData pkgName maybeName filePath =
           case Compiler.parseDependencies sourceCode of
             Right result ->
                 return result
+
             Left msgs ->
                 throwError (BM.CompilerErrors filePath sourceCode msgs)