From cc93fc83d7f42ada5b77777a28398b608de0a661 Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Sat, 18 Jun 2022 11:07:34 +0100
Subject: [PATCH] Add file (broken commit, mid block refactor)

---
 src/Dodge/Default/Block.hs | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 src/Dodge/Default/Block.hs

diff --git a/src/Dodge/Default/Block.hs b/src/Dodge/Default/Block.hs
new file mode 100644
index 000000000..b9e9d2f27
--- /dev/null
+++ b/src/Dodge/Default/Block.hs
@@ -0,0 +1,18 @@
+module Dodge.Default.Block where
+import Dodge.Data
+import Dodge.Block.Debris
+import LensHelp
+
+defaultBlock :: Block
+defaultBlock = Block
+    { _blID = 0
+    , _blWallIDs = mempty
+    , _blHP = 1000
+    , _blShadows = []
+    , _blFootprint = []
+    , _blPos       = 0
+    , _blDraw      = const mempty
+    , _blDeath      = makeBlockDebris
+    }
+
+defaultDirtBlock = defaultBlock & blHP .~ 50