git.iko.soy/typeable/pandoc
on master help sign in
UTF8: export fromText, fromTextLazy.
d1e78d9John MacFarlane
src/Text/Pandoc/UTF8.hs+10−2
compare with master
unifiedsplit
@@ -44,7 +44,9 @@ module Text.Pandoc.UTF8 ( readFile
44 , toString
44 , toString
45 , toText
45 , toText
46 , fromString
46 , fromString
47+ , fromText
47 , toStringLazy
48 , toStringLazy
49+ , fromTextLazy
48 , toTextLazy
50 , toTextLazy
49 , fromStringLazy
51 , fromStringLazy
50 , encodePath
52 , encodePath
@@ -143,11 +145,17 @@ toTextLazy = TL.decodeUtf8 . filterCRs . dropBOM
143toStringLazy :: BL.ByteString -> String
145toStringLazy :: BL.ByteString -> String
144toStringLazy = TL.unpack . toTextLazy
146toStringLazy = TL.unpack . toTextLazy
145
147
148+fromText :: T.Text -> B.ByteString
149+fromText = T.encodeUtf8
150+
151+fromTextLazy :: TL.Text -> BL.ByteString
152+fromTextLazy = TL.encodeUtf8
153+
146fromString :: String -> B.ByteString
154fromString :: String -> B.ByteString
147−fromString = T.encodeUtf8 . T.pack
155+fromString = fromText . T.pack
148
156
149fromStringLazy :: String -> BL.ByteString
157fromStringLazy :: String -> BL.ByteString
150−fromStringLazy = TL.encodeUtf8 . TL.pack
158+fromStringLazy = fromTextLazy . TL.pack
151
159
152encodePath :: FilePath -> FilePath
160encodePath :: FilePath -> FilePath
153encodePath = id
161encodePath = id