lib/src/Hanafuda/ID.hs

{-# LANGUAGE GeneralizedNewtypeDeriving #-}
module Hanafuda.ID (
      ID(..)
    , getID
  ) where

newtype ID a = ID Int deriving (Eq, Ord, Enum, Read, Show)

getID :: ID a -> String
getID (ID n) = show n