digestive-functors-snap 0.6.1.3 → 0.7.0.0
raw patch · 2 files changed
+6/−6 lines, 2 filesdep ~snap-corePVP ok
version bump matches the API change (PVP)
Dependency ranges changed: snap-core
API changes (from Hackage documentation)
- Text.Digestive.Snap: method :: SnapFormConfig -> Maybe Method
- Text.Digestive.Snap: partPolicy :: SnapFormConfig -> SnapPartPolicy
- Text.Digestive.Snap: temporaryDirectory :: SnapFormConfig -> Maybe FilePath
- Text.Digestive.Snap: uploadPolicy :: SnapFormConfig -> UploadPolicy
+ Text.Digestive.Snap: [method] :: SnapFormConfig -> Maybe Method
+ Text.Digestive.Snap: [partPolicy] :: SnapFormConfig -> SnapPartPolicy
+ Text.Digestive.Snap: [temporaryDirectory] :: SnapFormConfig -> Maybe FilePath
+ Text.Digestive.Snap: [uploadPolicy] :: SnapFormConfig -> UploadPolicy
Files
digestive-functors-snap.cabal view
@@ -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,
src/Text/Digestive/Snap.hs view
@@ -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