Add Read/Show instance for Creature

2022-07-22 10:44:54 +01:00
parent 4c5218c633
commit 6b69fc1684
35 changed files with 345 additions and 225 deletions
@@ -0,0 +1,7 @@
+module Dodge.Corpse.Draw where
+import Dodge.Data.Corpse
+import ShapePicture
+
+-- not currently used, too simple
+drawCorpse :: Corpse -> SPic
+drawCorpse cp = _cpSPic cp