>>962
isHoge (Hoge _) = True
isHoge _ = False

って書くのが普通じゃないの