runCmd (AddOneParam fileName newname r c) (opt, gOpt)
  = runFunc $ addOneParameter opt gOpt fileName newname (r,c)
runCmd (AddOneParam fileName newname r c) (opt, gOpt)
  = runFunc $ addOneParameter opt gOpt fileName newname (r,c)
runCmd (AddOneParam fileName newname r c) (opt, gOpt)
  = runFunc $ addOneParameter opt gOpt fileName newname (r,c)