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