implement includes options for check

2011-08-02 11:18:07 -07:00
parent b09a8fb2ee
commit b6d99e279c
4 changed files with 21 additions and 4 deletions
--- a/Check.hs
+++ b/Check.hs
@@ -31,7 +31,7 @@ check opt fileName = withGHC $ do
    clearWarnings
    readRef ref
  where
-    options = ["-Wall","-fno-warn-unused-do-bind"]
+    options = ["-Wall","-fno-warn-unused-do-bind"] ++ map ((++) "-i") (checkIncludes opt)
    handleParseError ref e = do
        liftIO . writeIORef ref $ errBagToStrList . srcErrorMessages $ e
        return Succeeded