Maybe IntをNum型クラスのインスタンスにする

[tokiwoousaka]

こんな感じ

instance Num a => Num (Maybe a) where
  l + r = (+) <$> l <*> r
  l * r = (*) <$> l <*> r
  l - r = (-) <$> l <*> r
  abs = fmap abs
  signum = fmap signum
  fromInteger = Just . fromInteger

Lensとの兼ね合いで便利になるぽよ。