Changeset 11229 for trunk/PGIP/DataTypesUtils.hs
- Timestamp:
- 07.01.2009 14:11:49 (14 months ago)
- Files:
-
- 1 modified
-
trunk/PGIP/DataTypesUtils.hs (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
trunk/PGIP/DataTypesUtils.hs
r11082 r11229 61 61 add2hist :: [UndoRedoElem] -> CMDL_State -> CMDL_State 62 62 add2hist descr st 63 = let intst = add2history (intState st) []descr63 = let intst = add2history [] (intState st) descr 64 64 in st { 65 65 intState = intst }