module Text.Show.Text.Data.Vector (
showbVectorPrec
, showbVectorGenericPrec
, showbVectorPrimitivePrec
, showbVectorStorablePrec
, showbVectorUnboxedPrec
, showbSizePrec
) where
import qualified Data.Vector as B (Vector)
import Data.Vector.Fusion.Stream.Size (Size)
import qualified Data.Vector.Generic as G (Vector)
import Data.Vector.Generic (toList)
import qualified Data.Vector.Primitive as P (Vector)
import Data.Vector.Primitive (Prim)
import qualified Data.Vector.Storable as S (Vector)
import qualified Data.Vector.Unboxed as U (Vector)
import Data.Vector.Unboxed (Unbox)
import Foreign.Storable (Storable)
import Prelude hiding (Show)
import Text.Show.Text (Show(showbPrec), Show1(showbPrec1), Builder)
import Text.Show.Text.TH (deriveShowPragmas, defaultInlineShowbPrec)
import Text.Show.Text.Utils (showbUnaryList)
#include "inline.h"
showbVectorPrec :: Show a => Int -> B.Vector a -> Builder
showbVectorPrec = showbVectorGenericPrec
showbVectorGenericPrec :: (G.Vector v a, Show a) => Int -> v a -> Builder
showbVectorGenericPrec p = showbUnaryList p . toList
showbVectorPrimitivePrec :: (Show a, Prim a) => Int -> P.Vector a -> Builder
showbVectorPrimitivePrec = showbVectorGenericPrec
showbVectorStorablePrec :: (Show a, Storable a) => Int -> S.Vector a -> Builder
showbVectorStorablePrec = showbVectorGenericPrec
showbVectorUnboxedPrec :: (Show a, Unbox a) => Int -> U.Vector a -> Builder
showbVectorUnboxedPrec = showbVectorGenericPrec
showbSizePrec :: Int -> Size -> Builder
showbSizePrec = showbPrec
instance Show a => Show (B.Vector a) where
showbPrec = showbVectorPrec
INLINE_INST_FUN(showbPrec)
instance (Show a, Prim a) => Show (P.Vector a) where
showbPrec = showbVectorPrimitivePrec
INLINE_INST_FUN(showbPrec)
instance (Show a, Storable a) => Show (S.Vector a) where
showbPrec = showbVectorStorablePrec
INLINE_INST_FUN(showbPrec)
instance (Show a, Unbox a) => Show (U.Vector a) where
showbPrec = showbVectorUnboxedPrec
INLINE_INST_FUN(showbPrec)
instance Show1 B.Vector where
showbPrec1 = showbVectorPrec
INLINE_INST_FUN(showbPrec1)
$(deriveShowPragmas defaultInlineShowbPrec ''Size)