diff --git a/src/Application.hs b/src/Application.hs
index b1d3997..ef53de4 100644
--- a/src/Application.hs
+++ b/src/Application.hs
@@ -10,7 +10,6 @@ import Web.Simple
 import Web.Simple.Static       (serveStatic)
 import Web.Simple.Templates    (render)
 
-import Control.Applicative
 import Control.Monad.IO.Class  (liftIO)
 import Text.Printf             (printf)
 import Data.Aeson
diff --git a/src/Breve/Common.hs b/src/Breve/Common.hs
index 080314b..4dbfed9 100644
--- a/src/Breve/Common.hs
+++ b/src/Breve/Common.hs
@@ -3,7 +3,6 @@ module Breve.Common where
 
 import Paths_breve                     (getDataFileName)
 
-import Control.Applicative
 import Control.Monad.IO.Class          (liftIO)
 import Text.Printf                     (printf)
 import System.Environment              (lookupEnv)
diff --git a/src/Breve/Generator.hs b/src/Breve/Generator.hs
index 3132759..6eefde4 100644
--- a/src/Breve/Generator.hs
+++ b/src/Breve/Generator.hs
@@ -5,7 +5,6 @@ module Breve.Generator
 , Url
 ) where
 
-import Control.Applicative
 import Control.Monad.State
 import System.Random
 import Crypto.Hash.SHA256     (hash)
diff --git a/src/Breve/UrlTable.hs b/src/Breve/UrlTable.hs
index ab3511f..5ffb3f1 100644
--- a/src/Breve/UrlTable.hs
+++ b/src/Breve/UrlTable.hs
@@ -18,7 +18,7 @@ type UrlTable = H.CuckooHashTable Name Url
 sync :: UrlTable -> FilePath -> IO ()
 sync table file = forever $ do
   threadDelay (round 3.0e8)
-  content <- fmap show (H.toList table)
+  content <- show <$> H.toList table
   writeFile file content
 
 -- Load a url table from a file