module Reddit.Utilities
( unescape ) where
import Data.Text (Text)
import qualified Data.Text as Text
unescape :: Text -> Text
unescape :: Text -> Text
unescape = Text -> Text -> Text -> Text
replace Text
">" Text
">" (Text -> Text) -> (Text -> Text) -> Text -> Text
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> Text -> Text -> Text
replace Text
"<" Text
"<" (Text -> Text) -> (Text -> Text) -> Text -> Text
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> Text -> Text -> Text
replace Text
"&" Text
"&"
replace :: Text
-> Text
-> Text
-> Text
replace :: Text -> Text -> Text -> Text
replace Text
s Text
r = Text -> [Text] -> Text
Text.intercalate Text
r ([Text] -> Text) -> (Text -> [Text]) -> Text -> Text
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> Text -> [Text]
Text.splitOn Text
s