Commit 3a4e4e29 authored by Andrew Gibiansky's avatar Andrew Gibiansky

No longer need to import TH to use it

parent 021e3bf0
*.hi *.hi
notebooks/Test.ipynb
*.o *.o
dist dist
IHaskell/GHC IHaskell/GHC
......
This diff is collapsed.
...@@ -117,6 +117,7 @@ globalImports = ...@@ -117,6 +117,7 @@ globalImports =
, "import qualified IHaskell.IPython.Stdin" , "import qualified IHaskell.IPython.Stdin"
, "import qualified System.Posix.IO as IHaskellIO" , "import qualified System.Posix.IO as IHaskellIO"
, "import qualified System.IO as IHaskellSysIO" , "import qualified System.IO as IHaskellSysIO"
, "import qualified Language.Haskell.TH as IHaskellTH"
] ]
-- | Run an interpreting action. This is effectively runGhc with -- | Run an interpreting action. This is effectively runGhc with
...@@ -706,7 +707,7 @@ evalCommand output (Expression expr) state = do ...@@ -706,7 +707,7 @@ evalCommand output (Expression expr) state = do
isWidget <- attempt $ exprType widgetExpr isWidget <- attempt $ exprType widgetExpr
-- Check if this is a template haskell declaration -- Check if this is a template haskell declaration
let declExpr = printf "((id :: DecsQ -> DecsQ) (%s))" expr::String let declExpr = printf "((id :: IHaskellTH.DecsQ -> IHaskellTH.DecsQ) (%s))" expr::String
isTHDeclaration <- attempt $ exprType declExpr isTHDeclaration <- attempt $ exprType declExpr
write $ "Can Display: " ++ show canRunDisplay write $ "Can Display: " ++ show canRunDisplay
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment