module Taskell.IO.HTTP.GitHub.Utility ( cleanUp ) where import ClassyPrelude import Data.Text (replace) cleanUp :: Text -> Text cleanUp :: Text -> Text cleanUp Text txt = Text -> Text -> Text -> Text replace Text "\r" Text "" (Text -> Text) -> Text -> Text forall a b. (a -> b) -> a -> b $ Text -> Text -> Text -> Text replace Text "\n" Text " " Text txt