lib/src/Hanafuda/Key.hs

{-# LANGUAGE GeneralizedNewtypeDeriving #-}
module Hanafuda.Key (
      Key(..)
    , getKey
  ) where

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

getKey :: Key a -> String
getKey (Key n) = show n