'check' command now supports cabal-dev.

2011-11-01 15:06:53 -07:00
parent 764ba5b7f3
commit 3efbf59028
3 changed files with 53 additions and 3 deletions
--- a/Check.hs
+++ b/Check.hs
@@ -9,10 +9,15 @@ import GHC
 import Prelude hiding (catch)
 import Types

+import CabalDev (modifyOptions)
+
 ----------------------------------------------------------------

 checkSyntax :: Options -> String -> IO String
-checkSyntax opt file = unlines <$> check opt file
+--checkSyntax opt file = unlines <$> check opt file
+checkSyntax opt file = do
+  opt' <- modifyOptions opt
+  unlines <$> check opt' file

 ----------------------------------------------------------------