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