From 370f41738ccaeb07efb16d4538186b78700b79bf Mon Sep 17 00:00:00 2001
From: jgk <justin.g.kruger@gmail.com>
Date: Mon, 15 Mar 2021 14:32:30 +0100
Subject: [PATCH] Narrow down problem, probably with bullets hitting creature

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

diff --git a/src/Dodge/Base.hs b/src/Dodge/Base.hs
index 5b9a67cb1..3e3e00c77 100644
--- a/src/Dodge/Base.hs
+++ b/src/Dodge/Base.hs
@@ -22,7 +22,7 @@ import qualified Data.Set as S
 -- }}}
 --
 leftPad :: Int -> a -> [a] -> [a]
-leftPad i x xs = reverse $ take i $ reverse xs ++ repeat x
+leftPad i x xs = reverse $ take i $ reverse (take i xs) ++ repeat x
 
 rightPad :: Int -> a -> [a] -> [a]
 rightPad i x xs = take i $ xs ++ repeat x