Commit a849a1f8 authored by Diederik van Arkel's avatar Diederik van Arkel

rename CursorInfo to avoid nameclash with ObjectI/O

parent 0c063c67
......@@ -39,7 +39,7 @@ import EdAction
, timerId :: !Id // P4
, toolPt :: !Point2 // P4
, fontInfo :: !FontInfo
, cursorInfo :: !CursorInfo
, cursorInfo :: !CursorInfo`
, selectInfo :: !SelectInfo
, undoInfo :: !UndoInfo
, needSave :: !Bool
......@@ -50,7 +50,7 @@ import EdAction
, readOnly :: !Bool
}
:: CursorInfo
:: CursorInfo` // rename to avoid conflict with Object I/O
= { position :: !Position
, virtualX :: !Int
, visible :: !Bool
......@@ -470,7 +470,6 @@ where
| c == s.[i] = (True, i);
= FindLastChar c s (dec i);
setNeedSave :: Bool -> EditMonad (PSt .l) nothing
setNeedSave need =
getReadOnly >>>= \readOnly ->
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment