diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,6 +1,11 @@
 Changes
 =======
 
+Version 0.6.2.2
+---------------
+
+Fix a GHC 7.10 warning
+
 Version 0.6.2.1
 ---------------
 
diff --git a/System/Console/ANSI/Windows/Emulator.hs b/System/Console/ANSI/Windows/Emulator.hs
--- a/System/Console/ANSI/Windows/Emulator.hs
+++ b/System/Console/ANSI/Windows/Emulator.hs
@@ -95,11 +95,11 @@
 hClearScreenFraction :: HANDLE -> (SMALL_RECT -> COORD -> (DWORD, COORD)) -> IO ()
 hClearScreenFraction handle fraction_finder = do
     screen_buffer_info <- getConsoleScreenBufferInfo handle
-    
+
     let window = csbi_window screen_buffer_info
         cursor_pos = csbi_cursor_position screen_buffer_info
         (fill_length, fill_cursor_pos) = fraction_finder window cursor_pos
-    
+
     fillConsoleOutputCharacter handle clearChar fill_length fill_cursor_pos
     fillConsoleOutputAttribute handle clearAttribute fill_length fill_cursor_pos
     return ()
diff --git a/ansi-terminal.cabal b/ansi-terminal.cabal
--- a/ansi-terminal.cabal
+++ b/ansi-terminal.cabal
@@ -1,5 +1,5 @@
 Name:                ansi-terminal
-Version:             0.6.2.1
+Version:             0.6.2.2
 Cabal-Version:       >= 1.6
 Category:            User Interfaces
 Synopsis:            Simple ANSI terminal support, with Windows compatibility
diff --git a/includes/Common-Include.hs b/includes/Common-Include.hs
--- a/includes/Common-Include.hs
+++ b/includes/Common-Include.hs
@@ -1,5 +1,7 @@
 import System.Environment
+#if !MIN_VERSION_base(4,8,0)
 import Control.Applicative
+#endif
 
 hCursorUp, hCursorDown, hCursorForward, hCursorBackward :: Handle
                                                         -> Int -- ^ Number of lines or characters to move