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.1.3
+Version:       0.7.0.0
 Synopsis:      Snap backend for the digestive-functors library
 Description:   Snap backend for the digestive-functors library
 Homepage:      http://github.com/jaspervdj/digestive-functors
@@ -20,7 +20,7 @@
     base               >= 4    && < 5,
     containers         >= 0.3  && < 0.6,
     digestive-functors >= 0.8  && < 0.9,
-    snap-core          >= 0.7  && < 0.10,
+    snap-core          >= 1.0  && < 1.1,
     text               >= 0.11 && < 1.3,
     directory          >= 1.0  && < 1.4,
     filepath           >= 1.0  && < 1.5,
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
@@ -63,11 +63,11 @@
         temporaryDirectory config
 
     -- Actually do the work...
-    Snap.handleFileUploads tmpDir (uploadPolicy config) (partPolicy config) $
-        fmap catMaybes . mapM (storeFile tmpDir)
+    fmap catMaybes $ Snap.handleFileUploads tmpDir (uploadPolicy config) (partPolicy config) $
+        storeFile tmpDir
   where
-    storeFile _   (_,        Left _)     = return Nothing
-    storeFile tmp (partinfo, Right path) = do
+    storeFile _   _        (Left _)      = return Nothing
+    storeFile tmp partinfo (Right path)  = do
         let newPath = tmp </> "_" ++ takeFileName path ++
                 maybe "" B.unpack (Snap.partFileName partinfo)
         liftIO $ copyFile path newPath