11 lines
207 B
Haskell
11 lines
207 B
Haskell
|
{-# 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
|