()是一个Monoid。由于只有一个类型的值()，只有一个东西mempty，并mappend可以这样做：
instance Monoid () where mempty = () () `mappend` () = ()
友情链接： json在线解析 通晓查询 糯晒黄历 姓名打分