summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authortv <tv@shackspace.de>2014-07-27 19:56:16 +0200
committertv <tv@shackspace.de>2014-07-27 19:56:16 +0200
commit75ebdc58d851ae101ca8d801ea8eae72d74bdf0d (patch)
tree277aab49819f790f6511fac8f8040e8a6382562e
parent9c2ec3fe83c08aac936a41ab798a692797a5ce8b (diff)
data Mode deriving Eq
-rw-r--r--Main.hs3
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"