Better fileSource

yesod-core/Yesod/Core/Handler.hs

@@ -889,3 +889,8 @@ rawRequestBody :: (HandlerReader m, MonadResource m) => Source m S.ByteString
 rawRequestBody = do
     req <- lift waiRequest
     transPipe liftResourceT $ W.requestBody req
+
+-- | Stream the data from the file. Since Yesod 1.2, this has been generalized
+-- to work in any @MonadResource@.
+fileSource :: MonadResource m => FileInfo -> Source m S.ByteString
+fileSource = transPipe liftResourceT . fileSourceRaw

yesod-core/Yesod/Core/Internal/Request.hs

@@ -6,7 +6,6 @@ module Yesod.Core.Internal.Request
     , FileInfo
     , fileName
     , fileContentType
-    , fileSource
     , fileMove
     , mkFileInfoLBS
     , mkFileInfoFile

yesod-core/Yesod/Core/Types.hs

@@ -124,7 +124,7 @@ type RequestBodyContents =
 data FileInfo = FileInfo
     { fileName        :: !Text
     , fileContentType :: !Text
-    , fileSource      :: !(Source (ResourceT IO) ByteString)
+    , fileSourceRaw   :: !(Source (ResourceT IO) ByteString)
     , fileMove        :: !(FilePath -> IO ())
     }