cHistory :: Bool -> CmdlState -> CmdlState
cHistory isUndo state = genMessage []
  (unlines $ ((if isUndo then "Un" else "Re") ++ "do history :")
    : map (showCmd . command)
      ((if isUndo then undoList else redoList) $ i_hist $ intState state)
  ) state
cHistory :: Bool -> CmdlState -> CmdlState
cHistory isUndo state = genMessage []
  (unlines $ ((if isUndo then "Un" else "Re") ++ "do history :")
    : map (showCmd . command)
      ((if isUndo then undoList else redoList) $ i_hist $ intState state)
  ) state
cHistory isUndo state = genMessage []
  (unlines $ ((if isUndo then "Un" else "Re") ++ "do history :")
    : map (showCmd . command)
      ((if isUndo then undoList else redoList) $ i_hist $ intState state)
  ) state