diff --git a/CHANGELOG.markdown b/CHANGELOG.markdown
--- a/CHANGELOG.markdown
+++ b/CHANGELOG.markdown
@@ -1,3 +1,7 @@
+0.10.1.1
+--------
+* Compiles warning-free on GHC 7.10
+
 0.10.1
 ------
 * `semigroupoids` 5 support.
diff --git a/log-domain.cabal b/log-domain.cabal
--- a/log-domain.cabal
+++ b/log-domain.cabal
@@ -1,6 +1,6 @@
 name:          log-domain
 category:      Numeric
-version:       0.10.1
+version:       0.10.1.1
 license:       BSD3
 cabal-version: >= 1.8
 license-file:  LICENSE
diff --git a/src/Numeric/Log.hs b/src/Numeric/Log.hs
--- a/src/Numeric/Log.hs
+++ b/src/Numeric/Log.hs
@@ -23,7 +23,9 @@
   ) where
 
 import Prelude hiding (maximum, sum)
+#if __GLASGOW_HASKELL__ < 710
 import Control.Applicative
+#endif
 import Control.Comonad
 import Control.DeepSeq
 import Control.Monad
@@ -39,12 +41,16 @@
 import Data.Hashable.Extras
 import Data.Int
 import Data.List as List hiding (sum)
+#if __GLASGOW_HASKELL__ < 710
 import Data.Monoid
+#endif
 import Data.SafeCopy
 import Data.Semigroup.Foldable
 import Data.Semigroup.Traversable
 import Data.Serialize as Serialize
+#if __GLASGOW_HASKELL__ < 710
 import Data.Traversable
+#endif
 import Data.Vector.Unboxed as U hiding (sum)
 import Data.Vector.Generic as G hiding (sum)
 import Data.Vector.Generic.Mutable as M
diff --git a/src/Numeric/Log/Signed.hs b/src/Numeric/Log/Signed.hs
--- a/src/Numeric/Log/Signed.hs
+++ b/src/Numeric/Log/Signed.hs
@@ -22,13 +22,17 @@
        ) where
 
 import Numeric.Log (Precise(..))
+#if __GLASGOW_HASKELL__ < 710
 import Data.Monoid (Monoid(..))
+#endif
 import Data.Data (Data(..))
 import Generics.Deriving (Generic(..))
 import Data.Typeable (Typeable)
 import Text.Read as T
 import Text.Show as T
+#if __GLASGOW_HASKELL__ < 710
 import Data.Functor ((<$>))
+#endif
 
 -- $setup
 -- >>> let SLExp sX x ~= SLExp sY y = abs ((exp x-(multSign (nxor sX sY) (exp y))) / exp x) < 0.01