Broken commit (removed loadKeyConfig)

src/Dodge/LevelGen/Data.hs

@@ -1,7 +1,22 @@
 {-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE StrictData #-}
 module Dodge.LevelGen.Data
-    where
+    ( PSType (..)
+    , PlacementSpot (..)
+    , Placement (..)
+    , sPS
+    -- lenses
+    , placementSpot
+    , psType
+    , psPos
+    , psRot
+    , putID
+    , pwPoly
+    , pwWall
+    , unPutCrit
+    , groupPlacementID
+    , groupUpdate
+    ) where
 import Dodge.Data
 import Picture
 import Polyhedra.Data
@@ -36,9 +51,7 @@ data Placement
     = SinglePlacement {_placementSpot :: PlacementSpot }
     | GroupedPlacement
         {_groupPlacementID :: Int
---        ,_groupPlacementUpdate :: World -> Placement -> (World, Placement)
         ,_groupUpdate :: World -> [Placement] -> World
---        ,_groupPlacementFunc :: [PSType] -> PSType -> World -> World
         ,_placementSpot :: PlacementSpot
         }
 sPS :: Point2 -> Float -> PSType -> Placement