From f3ea150aca5cc86878fa10bc5b1f0918fc154e2a Mon Sep 17 00:00:00 2001 From: tv Date: Wed, 6 Apr 2022 14:42:04 +0200 Subject: Mode: move Show up --- src/Main.hs | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/src/Main.hs b/src/Main.hs index ece6266..7d263e3 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -42,6 +42,14 @@ data Mode | YankMode deriving (Eq) +instance Show Mode where + show NormalMode = "normal" + show InsertMode = "insert" + show VerbatimMode = "verbatim" + show SelectRegisterMode = "select register" + show DeleteMode = "delete" + show YankMode = "yank" + data VTConfig = VTConfig { withOutput :: IO () -> IO () @@ -586,14 +594,6 @@ ymap = type Keymap = [(String, Command)] -instance Show Mode where - show NormalMode = "normal" - show InsertMode = "insert" - show VerbatimMode = "verbatim" - show SelectRegisterMode = "select register" - show DeleteMode = "delete" - show YankMode = "yank" - getCommand :: Mode -> String -> Command -- cgit v1.2.3