succinct-0.0.0.1: components/succinct-core/test/Data/Succinct/RankSelect/SpecCommon.hs

{-# LANGUAGE GeneralizedNewtypeDeriving #-}

module Data.Succinct.RankSelect.SpecCommon where

import HaskellWorks.Data.Bits.BitShow

newtype ShowVector a = ShowVector a deriving (Eq, BitShow)

instance BitShow a => Show (ShowVector a) where
  show = bitShow