From 1e89f4d4c363763503fd2bf927bef19186c57e47 Mon Sep 17 00:00:00 2001
From: ncaq <ncaq@ncaq.net>
Date: Tue, 17 Apr 2018 18:01:36 +0900
Subject: [PATCH] cleaned: fileSourceByteString: document comment

from code review.
---
 yesod-core/Yesod/Core/Handler.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/yesod-core/Yesod/Core/Handler.hs b/yesod-core/Yesod/Core/Handler.hs
index d054c87e..c3c19f69 100644
--- a/yesod-core/Yesod/Core/Handler.hs
+++ b/yesod-core/Yesod/Core/Handler.hs
@@ -1362,8 +1362,9 @@ rawRequestBody = do
 fileSource :: MonadResource m => FileInfo -> ConduitT () S.ByteString m ()
 fileSource = transPipe liftResourceT . fileSourceRaw
 
--- | Strict `ByteString` body from `FileInfo`.
--- This function blocking while read file.
+-- | Extract a strict `ByteString` body from a `FileInfo`.
+--
+-- This function will block while reading the file.
 --
 -- > do
 -- >     fileByteString <- fileSourceByteString fileInfo