From 75ebdc58d851ae101ca8d801ea8eae72d74bdf0d Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Sun, 27 Jul 2014 19:56:16 +0200
Subject: data Mode deriving Eq

---
 Main.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'Main.hs')

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"
-- 
cgit v1.2.3