From 2627f1684434526d47c4223478434e2ce59388be Mon Sep 17 00:00:00 2001 From: Josh Rahm Date: Mon, 4 Apr 2022 17:27:52 -0600 Subject: change markstate to be persistent --- src/Internal/Marking.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'src/Internal') diff --git a/src/Internal/Marking.hs b/src/Internal/Marking.hs index 89d4a0b..9bf58cd 100644 --- a/src/Internal/Marking.hs +++ b/src/Internal/Marking.hs @@ -76,6 +76,7 @@ data MarkState = instance ExtensionClass MarkState where initialValue = MarkState Map.empty def + extensionType = PersistentExtension changeHistory :: (History Window -> History Window) -> (MarkState -> MarkState) changeHistory fn ms = ms { windowHistory = fn (windowHistory ms)} -- cgit