From 2e64126b4e49be4d87faacc1f7e1b0d1f131e774 Mon Sep 17 00:00:00 2001 From: tv 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(-) (limited to 'src') 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