runCmd :: HareParams -> (RefactSettings,GM.Options) -> IO ()
runCmd (DemoteCmd fileName r c) (opt, gOpt)
  = runFunc $ demote opt gOpt fileName (r,c)
runCmd :: HareParams -> (RefactSettings,GM.Options) -> IO ()
runCmd (DemoteCmd fileName r c) (opt, gOpt)
  = runFunc $ demote opt gOpt fileName (r,c)
runCmd (DemoteCmd fileName r c) (opt, gOpt)
  = runFunc $ demote opt gOpt fileName (r,c)