diff options
| author | tv <tv@krebsco.de> | 2022-04-06 14:42:04 +0200 |
|---|---|---|
| committer | tv <tv@krebsco.de> | 2022-04-06 14:45:35 +0200 |
| commit | f3ea150aca5cc86878fa10bc5b1f0918fc154e2a (patch) | |
| tree | 31595a771dd0314dee3ebdd8c2d286717f17e90d | |
| parent | cb004b2e5f0fce6cea8d54e60558a1c1904dbe39 (diff) | |
| -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 |