diff --git a/Language/Haskell/GhcMod/Check.hs b/Language/Haskell/GhcMod/Check.hs index af2108f..86d50f0 100644 --- a/Language/Haskell/GhcMod/Check.hs +++ b/Language/Haskell/GhcMod/Check.hs @@ -31,7 +31,7 @@ check :: IOish m => [FilePath] -- ^ The target files. -> GhcModT m (Either String String) check fileNames = overrideGhcUserOptions $ \ghcOpts -> do - withLogger (setAllWaringFlags . setNoMaxRelevantBindings . Gap.setWarnTypedHoles . Gap.setDeferTypeErrors) $ do + withLogger (setAllWarningFlags . setNoMaxRelevantBindings . Gap.setWarnTypedHoles . Gap.setDeferTypeErrors) $ do _ <- G.setSessionDynFlags =<< addCmdOpts ghcOpts =<< G.getSessionDynFlags setTargetFiles fileNames @@ -50,5 +50,5 @@ expandTemplate files = either id id <$> expand files expand :: IOish m => [FilePath] -- ^ The target files. -> GhcModT m (Either String String) -expand fileNames = withLogger (Gap.setDumpSplices . setNoWaringFlags) $ +expand fileNames = withLogger (Gap.setDumpSplices . setNoWarningFlags) $ setTargetFiles fileNames diff --git a/Language/Haskell/GhcMod/DynFlags.hs b/Language/Haskell/GhcMod/DynFlags.hs index 5cf9153..9db733b 100644 --- a/Language/Haskell/GhcMod/DynFlags.hs +++ b/Language/Haskell/GhcMod/DynFlags.hs @@ -96,12 +96,12 @@ withCmdFlags flags body = G.gbracket setup teardown (\_ -> body) ---------------------------------------------------------------- -- | Set 'DynFlags' equivalent to "-w:". -setNoWaringFlags :: DynFlags -> DynFlags -setNoWaringFlags df = df { warningFlags = Gap.emptyWarnFlags} +setNoWarningFlags :: DynFlags -> DynFlags +setNoWarningFlags df = df { warningFlags = Gap.emptyWarnFlags} -- | Set 'DynFlags' equivalent to "-Wall". -setAllWaringFlags :: DynFlags -> DynFlags -setAllWaringFlags df = df { warningFlags = allWarningFlags } +setAllWarningFlags :: DynFlags -> DynFlags +setAllWarningFlags df = df { warningFlags = allWarningFlags } allWarningFlags :: Gap.WarnFlags allWarningFlags = unsafePerformIO $ diff --git a/Language/Haskell/GhcMod/Internal.hs b/Language/Haskell/GhcMod/Internal.hs index 777749e..bf544d1 100644 --- a/Language/Haskell/GhcMod/Internal.hs +++ b/Language/Haskell/GhcMod/Internal.hs @@ -24,8 +24,8 @@ module Language.Haskell.GhcMod.Internal ( , setTargetFiles -- * Logging , withLogger - , setNoWaringFlags - , setAllWaringFlags + , setNoWarningFlags + , setAllWarningFlags -- * Environment, state and logging , GhcModEnv(..) , newGhcModEnv diff --git a/Language/Haskell/GhcMod/SrcUtils.hs b/Language/Haskell/GhcMod/SrcUtils.hs index d79b080..98a0315 100644 --- a/Language/Haskell/GhcMod/SrcUtils.hs +++ b/Language/Haskell/GhcMod/SrcUtils.hs @@ -87,7 +87,7 @@ pretty dflag style = showOneLine dflag style . Gap.typeForUser inModuleContext :: IOish m => FilePath -> (DynFlags -> PprStyle -> GhcModT m a) -> GhcModT m a inModuleContext file action = - withDynFlags (setWarnTypedHoles . setDeferTypeErrors . setNoWaringFlags) $ do + withDynFlags (setWarnTypedHoles . setDeferTypeErrors . setNoWarningFlags) $ do setTargetFiles [file] Gap.withContext $ do dflag <- G.getSessionDynFlags