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.6.0.1
+Version:       0.6.1.0
 Synopsis:      Snap backend for the digestive-functors library
 Description:   Snap backend for the digestive-functors library
 Homepage:      http://github.com/jaspervdj/digestive-functors
@@ -19,9 +19,9 @@
   Build-depends:
     base               >= 4    && < 5,
     containers         >= 0.3  && < 0.6,
-    digestive-functors >= 0.6  && < 0.7,
+    digestive-functors >= 0.7  && < 0.8,
     snap-core          >= 0.7  && < 0.10,
-    text               >= 0.11 && < 1.1,
+    text               >= 0.11 && < 1.2,
     directory          >= 1.0  && < 1.4,
     filepath           >= 1.0  && < 1.4,
     mtl                >= 2    && < 3,
diff --git a/src/Text/Digestive/Snap.hs b/src/Text/Digestive/Snap.hs
--- a/src/Text/Digestive/Snap.hs
+++ b/src/Text/Digestive/Snap.hs
@@ -98,12 +98,10 @@
         Get  -> do
             view <- getForm name form
             return (view, Nothing)
-        Post -> do
-            encType <- formEncType form
-            files   <- case encType of
-                UrlEncoded -> return []
-                MultiPart  -> snapFiles config
-            postForm name form (snapEnv files)
+        Post ->
+            postForm name form $ \encType -> case encType of
+                UrlEncoded -> return $ snapEnv []
+                MultiPart  -> snapEnv <$> snapFiles config
   where
     snapMethod        = toMethod . Snap.rqMethod <$> Snap.getRequest
     toMethod Snap.GET = Get