removing warnings.
This commit is contained in:
parent
463ab9a26f
commit
dcadd5c7ba
@ -12,8 +12,6 @@ module TestUtils (
|
|||||||
import Language.Haskell.GhcMod.Monad
|
import Language.Haskell.GhcMod.Monad
|
||||||
import Language.Haskell.GhcMod.Types
|
import Language.Haskell.GhcMod.Types
|
||||||
|
|
||||||
import Control.Applicative
|
|
||||||
|
|
||||||
isolateCradle :: IOish m => GhcModT m a -> GhcModT m a
|
isolateCradle :: IOish m => GhcModT m a -> GhcModT m a
|
||||||
isolateCradle action =
|
isolateCradle action =
|
||||||
local modifyEnv $ action
|
local modifyEnv $ action
|
||||||
@ -30,9 +28,11 @@ runIsolatedGhcMod opt action = do
|
|||||||
extract $ runGhcModT opt $ isolateCradle action
|
extract $ runGhcModT opt $ isolateCradle action
|
||||||
|
|
||||||
-- | Run GhcMod in isolated cradle with default options
|
-- | Run GhcMod in isolated cradle with default options
|
||||||
|
runID :: GhcModT IO a -> IO a
|
||||||
runID = runIsolatedGhcMod defaultOptions
|
runID = runIsolatedGhcMod defaultOptions
|
||||||
|
|
||||||
-- | Run GhcMod in isolated cradle
|
-- | Run GhcMod in isolated cradle
|
||||||
|
runI :: Options -> GhcModT IO a -> IO a
|
||||||
runI = runIsolatedGhcMod
|
runI = runIsolatedGhcMod
|
||||||
|
|
||||||
-- | Run GhcMod
|
-- | Run GhcMod
|
||||||
|
Loading…
Reference in New Issue
Block a user