module Data.Patricia.Word.Common
  ( Lookup (..)
  ) where



-- | Key together with the value.
data Lookup a = Lookup {-# UNPACK #-} !Word a
                deriving Int -> Lookup a -> ShowS
[Lookup a] -> ShowS
Lookup a -> String
(Int -> Lookup a -> ShowS)
-> (Lookup a -> String) -> ([Lookup a] -> ShowS) -> Show (Lookup a)
forall a. Show a => Int -> Lookup a -> ShowS
forall a. Show a => [Lookup a] -> ShowS
forall a. Show a => Lookup a -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: forall a. Show a => Int -> Lookup a -> ShowS
showsPrec :: Int -> Lookup a -> ShowS
$cshow :: forall a. Show a => Lookup a -> String
show :: Lookup a -> String
$cshowList :: forall a. Show a => [Lookup a] -> ShowS
showList :: [Lookup a] -> ShowS
Show