git.iko.soy/typeable/pandoc
on master help sign in
Remove dangling `where` from one function.
e51a2ceArtyom Kazak
src/Text/Pandoc/Writers/FB2.hs−1
compare with master
unifiedsplit
@@ -294,7 +294,6 @@ fetchURL url = do
294 let content_type = lookupHeader HdrContentType (getHeaders r)
294 let content_type = lookupHeader HdrContentType (getHeaders r)
295 content <- liftM (Just . toStr . encode . toBS) . getResponseBody $ Right r
295 content <- liftM (Just . toStr . encode . toBS) . getResponseBody $ Right r
296 return $ liftM2 (,) content_type content
296 return $ liftM2 (,) content_type content
297− where
298
297
299toBS :: String -> B.ByteString
298toBS :: String -> B.ByteString
300toBS = B.pack . map (toEnum . fromEnum)
299toBS = B.pack . map (toEnum . fromEnum)