[Type-constraints] everythingStagedWithContext

This is required for GHC<7.10 due to a panic
2016-01-20 01:00:13 +03:00
parent 4e4eff7bdb
commit aedc6b6b31
2 changed files with 22 additions and 1 deletions
--- a/Language/Haskell/GhcMod/SrcUtils.hs
+++ b/Language/Haskell/GhcMod/SrcUtils.hs
@@ -45,7 +45,8 @@ type CstGenQT = forall m. GhcMonad m => CstGenQS -> (m [(SrcSpan, Type)], CstGen

 collectSpansTypes :: (GhcMonad m) => G.TypecheckedModule -> (Int, Int) -> m [(SrcSpan, Type)]
 collectSpansTypes tcs lc =
-  everythingWithContext M.empty (liftM2 (++))
+  everythingStagedWithContext TypeChecker M.empty (liftM2 (++))
+    (return [])
    ((return [],) `mkQ` hsBind `extQ` hsExpr `extQ` hsPat)
    (G.tm_typechecked_source tcs)
  where