filterLegalInForm :: Player -> Maybe Move -> Maybe Move
filterLegalInForm p (Just (Go _ _))
  | hasStatus "Fear" p || hasStatus "Mesm" p = Just Rest
filterLegalInForm :: Player -> Maybe Move -> Maybe Move
filterLegalInForm p (Just (Go _ _))
  | hasStatus "Fear" p || hasStatus "Mesm" p = Just Rest
filterLegalInForm p (Just (Go _ _))
  | hasStatus "Fear" p || hasStatus "Mesm" p = Just Rest