[_XTemplateHaskell not allowed in Interpreter
martin.hofmann@uni-bamberg.de**20100223165607] hunk ./src/IOInterpreter.hs 14
-
+import Data.List (inits, isPrefixOf)
hunk ./src/IOInterpreter.hs 30
-typecheck f = do
-    (runInterpreter $ loadModules [f]) >>= either handleIErr (return . const ())
+typecheck f = do 
+    checkModule f
+    (runInterpreter $ loadModules [f] ) >>= 
+     either handleIErr (return . const ())
hunk ./src/IOInterpreter.hs 37
+    checkModule m
hunk ./src/IOInterpreter.hs 44
+        lift $ checkModule m
hunk ./src/IOInterpreter.hs 51
-        ms <- getLoadedModules
hunk ./src/IOInterpreter.hs 64
+
+-- fails if _XTemplateHaskell Options is set
+checkModule :: FilePath -> IO ()
+checkModule p = do
+    f <- readFile p
+    when (null . (filter (isPrefixOf "XTemplateHaskell")) . inits $ f) (return ())
+    fail "TH not supported!"
+     