diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,5 +1,9 @@
 # Changelog
 
+#### 0.2.0.1
+
+* Allow rest-core-0.39.
+
 ## 0.2
 
 * Breaking: `Applicative` and `Monad` constraint on `m` in
diff --git a/rest-snap.cabal b/rest-snap.cabal
--- a/rest-snap.cabal
+++ b/rest-snap.cabal
@@ -1,5 +1,5 @@
 name:                rest-snap
-version:             0.2
+version:             0.2.0.1
 description:         Rest driver for Snap.
 synopsis:            Rest driver for Snap.
 maintainer:          code@silk.co
@@ -23,9 +23,10 @@
   exposed-modules:   Rest.Driver.Snap
   build-depends:
       base == 4.*
+    , base-compat >= 0.8 && < 0.10
     , bytestring >= 0.9 && < 0.11
     , case-insensitive >= 0.4 && < 1.3
-    , rest-core >= 0.34 && < 0.38
+    , rest-core >= 0.34 && < 0.40
     , safe >= 0.2 && < 0.4
     , snap-core == 0.9.*
     , unordered-containers == 0.2.*
diff --git a/src/Rest/Driver/Snap.hs b/src/Rest/Driver/Snap.hs
--- a/src/Rest/Driver/Snap.hs
+++ b/src/Rest/Driver/Snap.hs
@@ -1,15 +1,19 @@
 {-# OPTIONS_GHC -fno-warn-orphans #-}
-{-# LANGUAGE RankNTypes #-}
+{-# LANGUAGE
+    NoImplicitPrelude
+  , RankNTypes
+  #-}
 module Rest.Driver.Snap
   ( apiToHandler
   , apiToHandler'
   ) where
 
+import Prelude.Compat
+
 import Safe
 import Snap.Core
 import Snap.Util.FileServe (defaultMimeTypes)
 
-import Control.Applicative
 import qualified Data.ByteString.Char8 as Char8
 import qualified Data.ByteString.UTF8  as UTF8
 import qualified Data.CaseInsensitive  as CI