Utility.hs

{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}

module IO.HTTP.GitHub.Utility
    ( cleanUp
    ) where

import ClassyPrelude

import Data.Text (replace)

cleanUp :: Text -> Text
cleanUp txt = replace "\r" "" $ replace "\n" " " txt