Fix Data.Text.Zipper.top; Export MouseDown, MouseUp
commit1dfbb645e9de2c80e6cebc423fb8d4dbb38c8f72
authorAli Abrar <aliabrar@gmail.com>
dateSun 4 Nov 2018, 15:53 (8 years ago)
parent3bc844e
src/Data/Text/Zipper.hs+1−1
@@ -93,7 +93,7 @@ end (TextZipper lb b a la) = TextZipper lb (b <> a) "" la
9393top :: TextZipper -> TextZipper
9494top (TextZipper lb b a la) = case reverse lb of
9595 [] -> TextZipper [] "" (b <> a) la
96− (start:rest) -> TextZipper [] "" start (rest <> la)
96+ (start:rest) -> TextZipper [] "" start (rest <> [b <> a] <> la)
9797
9898-- | Insert a character at the current cursor position
9999insertChar :: Char -> TextZipper -> TextZipper
src/Reflex/Vty/Widget.hs+2
@@ -29,6 +29,8 @@ module Reflex.Vty.Widget
2929 , regionBlankImage
3030 , Drag(..)
3131 , drag
32+ , MouseDown(..)
33+ , MouseUp(..)
3234 , mouseDown
3335 , pane
3436 , modifyImages