Skip to content

GitLab

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

rename CursorInfo to avoid nameclash with ObjectI/O

parent 0c063c67
Hide whitespace changes
Inline Side-by-side
Ed/EdMonad.icl
View file @ a849a1f8
...@@ -39,7 +39,7 @@ import EdAction ...@@ -39,7 +39,7 @@ import EdAction
, timerId :: !Id // P4 , timerId :: !Id // P4
, toolPt :: !Point2 // P4 , toolPt :: !Point2 // P4
, fontInfo :: !FontInfo , fontInfo :: !FontInfo
, cursorInfo :: !CursorInfo , cursorInfo :: !CursorInfo`
, selectInfo :: !SelectInfo , selectInfo :: !SelectInfo
, undoInfo :: !UndoInfo , undoInfo :: !UndoInfo
, needSave :: !Bool , needSave :: !Bool
...@@ -50,7 +50,7 @@ import EdAction ...@@ -50,7 +50,7 @@ import EdAction
, readOnly :: !Bool , readOnly :: !Bool
} }
:: CursorInfo :: CursorInfo` // rename to avoid conflict with Object I/O
= { position :: !Position = { position :: !Position
, virtualX :: !Int , virtualX :: !Int
, visible :: !Bool , visible :: !Bool
...@@ -470,7 +470,6 @@ where ...@@ -470,7 +470,6 @@ where
| c == s.[i] = (True, i); | c == s.[i] = (True, i);
= FindLastChar c s (dec i); = FindLastChar c s (dec i);
setNeedSave :: Bool -> EditMonad (PSt .l) nothing setNeedSave :: Bool -> EditMonad (PSt .l) nothing
setNeedSave need = setNeedSave need =
getReadOnly >>>= \readOnly -> 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