diff options
| -rw-r--r-- | src/Main.hs | 16 |
1 files 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 |