diff options
| author | Artyom Kazak <yom@artyom.me> | 2014-08-03 13:45:28 +0400 |
|---|---|---|
| committer | Artyom Kazak <yom@artyom.me> | 2014-08-04 19:58:25 +0400 |
| commit | e51a2cedf9c46bd45143c4d896ac61d317cf0ebf (patch) | |
| tree | b893bbc58b543a52f422caaebdc3aa3cb9367988 /src/Text | |
| parent | 82118b332899a90a60a0e95e8ae416d7f5398071 (diff) | |
| download | pandoc-e51a2cedf9c46bd45143c4d896ac61d317cf0ebf.tar.gz | |
Remove dangling `where` from one function.
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Writers/FB2.hs | 1 |
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) |