Hufflepdf/src/Data/Id.hs

{-# LANGUAGE GeneralizedNewtypeDeriving #-}
module Data.Id (
      Id(..)
    , Indexed
  ) where

import Data.Map (Map)

newtype Id a = Id {
    getId :: Int
  } deriving (Eq, Enum, Ord, Show)
type Indexed a = Map (Id a) a