diff options
| -rw-r--r-- | src/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |