From 9456ea426deda4cee3f76f6249d9a656154a9aa1 Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Tue, 19 Aug 2014 17:18:36 +0900
Subject: [PATCH] fixing typos.

---
 Language/Haskell/GhcMod/Check.hs    | 4 ++--
 Language/Haskell/GhcMod/DynFlags.hs | 8 ++++----
 Language/Haskell/GhcMod/Internal.hs | 4 ++--
 Language/Haskell/GhcMod/SrcUtils.hs | 2 +-
 4 files changed, 9 insertions(+), 9 deletions(-)

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