aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorArtyom Kazak <yom@artyom.me>2014-08-03 13:45:28 +0400
committerArtyom Kazak <yom@artyom.me>2014-08-04 19:58:25 +0400
commite51a2cedf9c46bd45143c4d896ac61d317cf0ebf (patch)
treeb893bbc58b543a52f422caaebdc3aa3cb9367988 /src/Text
parent82118b332899a90a60a0e95e8ae416d7f5398071 (diff)
downloadpandoc-e51a2cedf9c46bd45143c4d896ac61d317cf0ebf.tar.gz
Remove dangling `where` from one function.
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Writers/FB2.hs1
1 files changed, 0 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/FB2.hs b/src/Text/Pandoc/Writers/FB2.hs
index 930076c9e..ddbb976ef 100644
--- a/src/Text/Pandoc/Writers/FB2.hs
+++ b/src/Text/Pandoc/Writers/FB2.hs
@@ -294,7 +294,6 @@ fetchURL url = do
let content_type = lookupHeader HdrContentType (getHeaders r)
content <- liftM (Just . toStr . encode . toBS) . getResponseBody $ Right r
return $ liftM2 (,) content_type content
- where
toBS :: String -> B.ByteString
toBS = B.pack . map (toEnum . fromEnum)