diff --git a/changelog.md b/changelog.md
--- a/changelog.md
+++ b/changelog.md
@@ -1,2 +1,5 @@
+0.12.1.0
+* Backwards compatibility fixes for versions of base < 4.8.
+
 0.12.0.0
 * Support snap 1.0. This drops support for some older versions of snap.
diff --git a/snap-extras.cabal b/snap-extras.cabal
--- a/snap-extras.cabal
+++ b/snap-extras.cabal
@@ -1,5 +1,5 @@
 Name:                snap-extras
-Version:             0.12.0.0
+Version:             0.12.1.0
 Synopsis:            A collection of useful helpers and utilities for Snap web applications.
 Description:         This package contains a collection of helper functions
                      that come in handy in most practical, real-world
diff --git a/src/Snap/Extras.hs b/src/Snap/Extras.hs
--- a/src/Snap/Extras.hs
+++ b/src/Snap/Extras.hs
@@ -15,7 +15,7 @@
 
 -------------------------------------------------------------------------------
 import           Control.Lens
-import           Data.Monoid
+import           Data.Monoid                         (mempty)
 import           Heist
 import           Snap.Snaplet
 import           Snap.Snaplet.Heist
diff --git a/src/Snap/Extras/FlashNotice.hs b/src/Snap/Extras/FlashNotice.hs
--- a/src/Snap/Extras/FlashNotice.hs
+++ b/src/Snap/Extras/FlashNotice.hs
@@ -17,7 +17,7 @@
 import           Control.Monad.Trans
 import qualified Data.Map.Syntax      as MS
 import           Data.Maybe
-import           Data.Monoid
+import           Data.Monoid          (mempty)
 import           Data.Text            (Text)
 import qualified Data.Text            as T
 import           Heist
diff --git a/src/Snap/Extras/NavTrails.hs b/src/Snap/Extras/NavTrails.hs
--- a/src/Snap/Extras/NavTrails.hs
+++ b/src/Snap/Extras/NavTrails.hs
@@ -10,7 +10,7 @@
 import           Data.ByteString                     (ByteString)
 import qualified Data.Map.Syntax                     as MS
 import           Data.Maybe
-import           Data.Monoid
+import           Data.Monoid                         (mempty)
 import           Data.Text                           (Text)
 import qualified Data.Text.Encoding                  as T
 import           Heist
diff --git a/src/Snap/Extras/PollStatus.hs b/src/Snap/Extras/PollStatus.hs
--- a/src/Snap/Extras/PollStatus.hs
+++ b/src/Snap/Extras/PollStatus.hs
@@ -89,16 +89,15 @@
   ) where
 
 ------------------------------------------------------------------------------
-import           Blaze.ByteString.Builder
 import qualified Blaze.ByteString.Builder.Char8 as BB
-import           Control.Applicative
+import           Control.Applicative            as A
 import           Control.Monad
 import           Control.Monad.Trans
 import           Control.Monad.Trans.Maybe
 import           Data.ByteString                (ByteString)
 import qualified Data.Map.Syntax                as MS
 import           Data.Maybe
-import           Data.Monoid
+import           Data.Monoid                    (mempty)
 import           Data.Readable
 import           Data.Text
 import qualified Data.Text                      as T
@@ -107,7 +106,6 @@
 import           Heist.Compiled
 import           Heist.Splices
 import           Language.Javascript.JMacro
-import           Snap.Core
 import           Snap.Snaplet
 import           Snap.Snaplet.Heist.Compiled    (HasHeist)
 import           Text.PrettyPrint.Leijen.Text   (renderOneLine)
@@ -275,6 +273,6 @@
 ------------------------------------------------------------------------------
 statusElapsed :: Status -> Maybe Int
 statusElapsed Status{..} =
-    round . diffUTCTime statusTimestamp <$> statusStartTime
+    round . diffUTCTime statusTimestamp A.<$> statusStartTime
 
 
diff --git a/src/Snap/Extras/Tabs.hs b/src/Snap/Extras/Tabs.hs
--- a/src/Snap/Extras/Tabs.hs
+++ b/src/Snap/Extras/Tabs.hs
@@ -27,6 +27,7 @@
 import           Control.Monad.Trans
 import qualified Data.Map.Syntax          as MS
 import           Data.Maybe
+import           Data.Monoid              (mempty)
 import           Data.Text                (Text)
 import qualified Data.Text                as T
 import qualified Data.Text.Encoding       as T