data Mode deriving Eq

1 files changed, 2 insertions, 1 deletions

diff --git a/Main.hs b/Main.hs
index 8e75119..7e4bd0b 100644
--- a/Main.hs
+++ b/Main.hs
@@ -90,7 +90,7 @@ uiThread modeRef lock = do
           _ -> return ()
 
 
-        when (show (mode st) /= show (mode st')) $ do
+        when (mode st /= mode st') $ do
             putStrLn $ "change mode: " ++ (show $ mode st')
 
         renderInputLine (mode st') (buffer st')
@@ -411,6 +411,7 @@ data Mode
   = InsertMode
   | NormalMode
   | VerbatimMode
+  deriving (Eq)
 
 instance  Show Mode  where
   show NormalMode = "normal"