Rename withContext -> withInteractiveContext

2015-08-21 04:12:53 +02:00
parent eceb34c8af
commit 473f1e09c7
2 changed files with 5 additions and 5 deletions
--- a/Language/Haskell/GhcMod/Gap.hs
+++ b/Language/Haskell/GhcMod/Gap.hs
@@ -7,7 +7,7 @@ module Language.Haskell.GhcMod.Gap (
  , setLogAction
  , getSrcSpan
  , getSrcFile
-  , withContext
+  , withInteractiveContext
  , fOptions
  , toStringBuffer
  , showSeverityCaption
@@ -214,8 +214,8 @@ fileModSummary file' = do
        (Just file==) <$> canonicalizePath `traverse` ml_hs_file (ms_location m)
    return ms

-withContext :: GhcMonad m => m a -> m a
-withContext action = gbracket setup teardown body
+withInteractiveContext :: GhcMonad m => m a -> m a
+withInteractiveContext action = gbracket setup teardown body
  where
    setup = getContext
    teardown = setCtx