diff --git a/Program/Mighty/Config.hs b/Program/Mighty/Config.hs
--- a/Program/Mighty/Config.hs
+++ b/Program/Mighty/Config.hs
@@ -1,4 +1,5 @@
 {-# LANGUAGE FlexibleInstances, TypeSynonymInstances, OverloadedStrings #-}
+{-# LANGUAGE CPP #-}
 
 module Program.Mighty.Config (
   -- * Parsing a configuration file.
@@ -9,7 +10,9 @@
   , Option(..)
   ) where
 
+#if __GLASGOW_HASKELL__ < 709
 import Control.Applicative hiding (many,optional,(<|>))
+#endif
 import Program.Mighty.Parser
 import Text.Parsec
 import Text.Parsec.ByteString.Lazy
diff --git a/Program/Mighty/Parser.hs b/Program/Mighty/Parser.hs
--- a/Program/Mighty/Parser.hs
+++ b/Program/Mighty/Parser.hs
@@ -1,3 +1,5 @@
+{-# LANGUAGE CPP #-}
+
 -- | Parsers for Mighty
 
 module Program.Mighty.Parser (
@@ -12,7 +14,9 @@
   , comment
   ) where
 
+#if __GLASGOW_HASKELL__ < 709
 import Control.Applicative hiding (many,(<|>))
+#endif
 import Control.Exception
 import qualified Data.ByteString.Lazy.Char8 as BL
 import System.IO
diff --git a/Program/Mighty/Process.hs b/Program/Mighty/Process.hs
--- a/Program/Mighty/Process.hs
+++ b/Program/Mighty/Process.hs
@@ -1,10 +1,13 @@
 {-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE CPP #-}
 
 module Program.Mighty.Process (
     getMightyPid
   ) where
 
+#if __GLASGOW_HASKELL__ < 709
 import Control.Applicative
+#endif
 import Control.Monad.Trans.Resource (runResourceT)
 import Data.ByteString.Char8 (ByteString)
 import qualified Data.ByteString.Char8 as BS
diff --git a/Program/Mighty/Report.hs b/Program/Mighty/Report.hs
--- a/Program/Mighty/Report.hs
+++ b/Program/Mighty/Report.hs
@@ -1,4 +1,5 @@
 {-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE CPP #-}
 
 module Program.Mighty.Report (
     Reporter
@@ -10,7 +11,9 @@
   , printStdout
   ) where
 
+#if __GLASGOW_HASKELL__ < 709
 import Control.Applicative
+#endif
 import Control.Exception
 import qualified Control.Exception as E (catch)
 import Control.Monad
diff --git a/Program/Mighty/Resource.hs b/Program/Mighty/Resource.hs
--- a/Program/Mighty/Resource.hs
+++ b/Program/Mighty/Resource.hs
@@ -1,10 +1,14 @@
+{-# LANGUAGE CPP #-}
+
 module Program.Mighty.Resource (
     amIrootUser
   , setGroupUser
   , unlimit
   ) where
 
+#if __GLASGOW_HASKELL__ < 709
 import Control.Applicative
+#endif
 import Control.Exception
 import Control.Monad
 import System.Posix
diff --git a/Program/Mighty/Route.hs b/Program/Mighty/Route.hs
--- a/Program/Mighty/Route.hs
+++ b/Program/Mighty/Route.hs
@@ -1,4 +1,5 @@
 {-# LANGUAGE OverloadedStrings, TupleSections #-}
+{-# LANGUAGE CPP #-}
 
 module Program.Mighty.Route (
   -- * Paring a routing file
@@ -18,7 +19,9 @@
   , writeRouteDBRef
   ) where
 
+#if __GLASGOW_HASKELL__ < 709
 import Control.Applicative hiding (many,(<|>))
+#endif
 import Control.Monad
 import Data.ByteString
 import qualified Data.ByteString.Char8 as BS
diff --git a/conf/example.conf b/conf/example.conf
--- a/conf/example.conf
+++ b/conf/example.conf
@@ -20,6 +20,6 @@
 # Server_Name: Mighttpd/3.x.y
 Tls_Port: 443
 Tls_Cert_File: certificate.pem # should change this with an absolute path
-# Currently, Tls_Key_file must not be encrypted.
-Tls_Key_file: key.pem # should change this with an absolute path
+# Currently, Tls_Key_File must not be encrypted.
+Tls_Key_File: key.pem # should change this with an absolute path
 Service: 0 # 0 is HTTP only, 1 is HTTPS only, 2 is both
diff --git a/mighttpd2.cabal b/mighttpd2.cabal
--- a/mighttpd2.cabal
+++ b/mighttpd2.cabal
@@ -1,5 +1,5 @@
 Name:                   mighttpd2
-Version:                3.2.8
+Version:                3.2.9
 Author:                 Kazu Yamamoto <kazu@iij.ad.jp>
 Maintainer:             Kazu Yamamoto <kazu@iij.ad.jp>
 License:                BSD3
diff --git a/utils/mkindex.hs b/utils/mkindex.hs
--- a/utils/mkindex.hs
+++ b/utils/mkindex.hs
@@ -2,7 +2,9 @@
 
 -- mkindex :: Making index.html for the current directory.
 
+#if __GLASGOW_HASKELL__ < 709
 import Control.Applicative
+#endif
 import Data.Bits
 import Data.Time (formatTime)
 import Data.Time.Clock.POSIX