From e51a2cedf9c46bd45143c4d896ac61d317cf0ebf Mon Sep 17 00:00:00 2001
From: Artyom Kazak <yom@artyom.me>
Date: Sun, 3 Aug 2014 13:45:28 +0400
Subject: Remove dangling `where` from one function.

---
 src/Text/Pandoc/Writers/FB2.hs | 1 -
 1 file changed, 1 deletion(-)

(limited to 'src/Text')

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)
-- 
cgit v1.2.3