Use purs executable (#12)

purescript · Mar 21, 2017 · 86ec3eb · 86ec3eb
1 parent 90576b9
commit 86ec3eb
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/app/Main.hs b/app/Main.hs
@@ -384,10 +384,10 @@ verifyPackageSet = do
   paths <- Map.fromList <$> traverse installOrUpdate' (Map.toList db)
 
   for_ (Map.toList db) $ \(name, PackageInfo{..}) -> do
-    let dirFor = fromMaybe (error "verifyPackageSet: no directory") . (`Map.lookup` paths)
+    let dirFor pkgName = fromMaybe (error ("verifyPackageSet: no directory for " <> show pkgName)) (Map.lookup pkgName paths)
     echoT ("Verifying package " <> name)
     let srcGlobs = map (pathToTextUnsafe . (</> ("src" </> "**" </> "*.purs")) . dirFor) (name : dependencies)
-    exit =<< proc "psc" srcGlobs empty
+    procs "purs" ("compile" : srcGlobs) empty
 
 main :: IO ()
 main = do