1 2 3 4 5 6 7 8 9
{-# LANGUAGE InstanceSigs #-} module T6001 where data DayKind = Work | Rest instance Num DayKind where fromInteger :: Int -> DayKind fromInteger = undefined