Language.Haskell.Refact.Case
ifToCase