digestive-functors-snap 0.6.0.1 → 0.6.1.0

raw patch · 2 files changed

+7/−9 lines, 2 filesdep ~digestive-functorsdep ~text

Dependency ranges changed: digestive-functors, text

Files

• digestive-functors-snap.cabal +3/−3
• src/Text/Digestive/Snap.hs +4/−6

@@ -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,

@@ -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