Cleanup: broken pathfinding

src/Dodge/Annotation/Data.hs

@@ -0,0 +1,26 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE StrictData #-}
+module Dodge.Annotation.Data where
+import Dodge.Data
+import Dodge.Room
+
+import Data.Tree
+import Control.Monad.State
+import Control.Lens
+data Annotation g
+    = Lock Int
+    | Key  Int
+    | Corridor
+    | AirlockAno
+    | FirstWeapon
+    | StartRoom
+    | EndRoom
+    | OrAno [[Annotation g]]
+    | SpecificRoom (State g (Tree (Either Room Room)))
+    | BossAno Creature
+    | TreasureAno [Creature] [Item]
+    | SetLabel Int (State g Room)
+    | UseLabel Int (State g Room)
+    | ChainAnos [[Annotation g]]
+
+makeLenses ''Annotation