自動導出とか型シノニムとか #CodePiece

CodePiece.hs

import qualified Data.Map as Map

data Person = Person { firstName :: String,
                       lastName :: String,
                       age :: Int
                        } deriving (Eq, Show, Read)

data Day = Monday | Tuesday | Wednesday | Thursday | Friday | Saturday | Sunday deriving (Eq, Ord, Show, Read, Bounded, Enum)

type AssocList k v = [(k, v)]
-- type IntMap v = Map Int v
type IntMap = Map.Map Int