workaround for issue snapframework/snap-core#159

positiondev · Jul 21, 2015 · 61f33fd · 61f33fd
1 parent 9cdc81d
commit 61f33fd
Showing 1 changed file with 8 additions and 5 deletions.
diff --git a/digestive-functors-snap/src/Text/Digestive/Snap.hs b/digestive-functors-snap/src/Text/Digestive/Snap.hs
@@ -67,11 +67,14 @@ snapFiles config = do
         fmap catMaybes . mapM (storeFile tmpDir)
   where
     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
-        return $ Just (T.decodeUtf8 $ Snap.partFieldName partinfo, newPath)
+    storeFile tmp (partinfo, Right path) =
+      case Snap.partFileName partinfo of
+        Nothing -> return Nothing
+        -- NOTE(dbp 2014-07-29): Workaround for issue snapframework/snap-core#159
+        Just name -> if name == B.pack "" then return Nothing else do
+          let newPath = tmp </> "_" ++ takeFileName path ++ B.unpack name
+          liftIO $ copyFile path newPath
+          return $ Just (T.decodeUtf8 $ Snap.partFieldName partinfo, newPath)
 
 -- | Runs a form with the HTTP input provided by Snap.
 --