Mode: move Show up1.0.1

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