come back to original directory after haddockJOb

wavewave · Jan 3, 2013 · fab5a2e · fab5a2e
1 parent 36e8e7f
commit fab5a2e
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/lib/Application/DevAdmin/Job.hs b/lib/Application/DevAdmin/Job.hs
@@ -118,6 +118,7 @@ haddockJob bc name = do
   system $ "cabal haddock --hyperlink-source"
   system $ "cabal copy"
   -- versioncheck bc
+  setCurrentDirectory dir 
   return ()