module Darcs.Util.Show ( appPrec, BSWrapper(..) ) where import Prelude () import Darcs.Prelude import qualified Data.ByteString as B appPrec :: Int appPrec :: Int appPrec = 10 newtype BSWrapper = BSWrapper B.ByteString instance Show BSWrapper where showsPrec :: Int -> BSWrapper -> ShowS showsPrec d :: Int d (BSWrapper bs :: ByteString bs) = Bool -> ShowS -> ShowS showParen (Int d Int -> Int -> Bool forall a. Ord a => a -> a -> Bool > Int appPrec) (ShowS -> ShowS) -> ShowS -> ShowS forall a b. (a -> b) -> a -> b $ String -> ShowS showString "Data.ByteString.Char8.pack " ShowS -> ShowS -> ShowS forall b c a. (b -> c) -> (a -> b) -> a -> c . Int -> ByteString -> ShowS forall a. Show a => Int -> a -> ShowS showsPrec (Int appPrec Int -> Int -> Int forall a. Num a => a -> a -> a + 1) ByteString bs