From 2e64126b4e49be4d87faacc1f7e1b0d1f131e774 Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Fri, 1 Aug 2014 12:44:08 +0200
Subject: execCommand DeleteEntireLine: fix pasto

---
 src/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Main.hs b/src/Main.hs
index 785147b..240dd2a 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -331,7 +331,7 @@ execCommand DeleteEntireLine = modify $ \q ->
     let s = showBuffer $ buffer q
         r = register q
     in q { registers = Map.insert r s
-                     $ Map.insert defaultRegister
+                     $ Map.insert defaultRegister s
                      $ registers q
          , buffer = emptyBuffer
          , register = defaultRegister
-- 
cgit v1.2.3