github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-03 13:02:37 +03:00
Code Issues Projects Releases Wiki Activity

Define a Pretty instance for ByteString.

Browse Source
This commit is contained in:
Rob Rix 2017-08-22 13:45:09 -04:00
parent 3d4c52d22e
commit cf1619b58f
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Data/Functor/Classes/Pretty/Orphans.hs
View File

@ -3,4 +3,9 @@ module Data.Functor.Classes.Pretty.Orphans
( module Pretty
) where
import Data.ByteString
import Data.Functor.Classes.Pretty as Pretty
import Data.Text.Encoding
instance Pretty ByteString where
pretty = pretty . decodeUtf8With (\ _ -> ('\xfffd' <$))