module Darcs.Util.Show
    ( appPrec, BSWrapper(..)
    ) where

import Darcs.Prelude

import qualified Data.ByteString as B

appPrec :: Int
appPrec :: Int
appPrec = Int
10

newtype BSWrapper = BSWrapper B.ByteString

instance Show BSWrapper where
    showsPrec :: Int -> BSWrapper -> ShowS
showsPrec Int
d (BSWrapper ByteString
bs) =
        Bool -> ShowS -> ShowS
showParen (Int
d forall a. Ord a => a -> a -> Bool
> Int
appPrec) forall a b. (a -> b) -> a -> b
$
            String -> ShowS
showString String
"Data.ByteString.Char8.pack " forall b c a. (b -> c) -> (a -> b) -> a -> c
.
            forall a. Show a => Int -> a -> ShowS
showsPrec (Int
appPrec forall a. Num a => a -> a -> a
+ Int
1) ByteString
bs