Improve wall crushing

src/Dodge/Data/Door.hs

@@ -33,6 +33,7 @@ data Door = Door
     , _drZeroPos :: (Point2,Float)
     , _drOnePos :: (Point2,Float)
     , _drLerp :: Float
+    , _drOldLerp :: Float
     , _drFootPrint :: IM.IntMap (Point2,Point2)
     , _drHP :: Int
     , _drPushedBy :: PushSource

src/Dodge/Data/Wall/Structure.hs

@@ -3,6 +3,7 @@
 
 module Dodge.Data.Wall.Structure where
 
+--import Geometry.Data
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH