13 lines
224 B
Haskell
13 lines
224 B
Haskell
|
{-# 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
|