Item.hs

module Data.Item where

import Prelude

import qualified Data.Map        as MapLazy
import qualified Data.Map.Strict as MapStrict
import qualified Data.Text       as Strict
import qualified Data.Text.Lazy  as Lazy
import qualified Data.Vector     as Vector

import Data.List.NonEmpty (NonEmpty)
import Data.Set (Set)


type family Item a

type instance Item [a]                 = a
type instance Item (NonEmpty a)        = a
type instance Item (MapLazy.Map   k v) = (k,v)
type instance Item (MapStrict.Map k v) = (k,v)
type instance Item Strict.Text         = Char
type instance Item Lazy.Text           = Char
type instance Item (Set a)             = a
type instance Item (Vector.Vector a)   = a