diff --git a/digestive-functors-snap.cabal b/digestive-functors-snap.cabal
--- a/digestive-functors-snap.cabal
+++ b/digestive-functors-snap.cabal
@@ -1,5 +1,5 @@
 Name:                digestive-functors-snap
-Version:             0.1.3.0
+Version:             0.1.3.1
 Synopsis:            Snap backend for the digestive-functors library
 Description:         This is a snap backend for the digestive-functors library.
 
@@ -20,5 +20,5 @@
     base               >= 4     && < 5,
     bytestring         >= 0.9   && < 0.10,
     digestive-functors >= 0.2.1 && < 0.3,
-    snap-core          >= 0.5   && < 0.8,
+    snap-core          >= 0.5   && < 0.9,
     utf8-string        >= 0.3   && < 0.4
diff --git a/src/Text/Digestive/Forms/Snap.hs b/src/Text/Digestive/Forms/Snap.hs
--- a/src/Text/Digestive/Forms/Snap.hs
+++ b/src/Text/Digestive/Forms/Snap.hs
@@ -9,15 +9,16 @@
     , runViewSnapForm
     ) where
 
-import Control.Applicative ((<$>))
-import Control.Monad (liftM)
-
-import Data.ByteString as SB
+-------------------------------------------------------------------------------
+import Control.Applicative  ((<$>))
+import Control.Monad        (liftM)
+import Data.ByteString      as SB
 import Data.ByteString.UTF8 as SB (toString, fromString)
-import Snap.Types
-
+import Snap.Core
+-------------------------------------------------------------------------------
 import Text.Digestive.Forms (FormInput (..))
 import Text.Digestive.Types (Form (..), Environment (..), viewForm, runViewForm, eitherForm)
+-------------------------------------------------------------------------------
 
 newtype SnapInput = SnapInput {unSnapInput :: SB.ByteString}