Get rid of world hammers

src/Dodge/Default/World.hs

@@ -3,7 +3,6 @@ module Dodge.Default.World where
 --import Dodge.Data.SelectionList
 import Data.Graph.Inductive.Graph hiding ((&))
 import qualified Data.Map as M
-import qualified Data.Set as S
 import Dodge.Data.World
 import Geometry.Data
 import Geometry.Polygon
@@ -21,7 +20,6 @@ defaultInput =
         , _mouseMoving = False
         , _scrollAmount = 0
         , _previousScrollAmount = 0
-        , _hammers = defaultWorldHammers
         , _lrLine = (0, 0)
         , _lLine = (0, 0)
         , _rLine = (0, 0)
@@ -154,9 +152,6 @@ defaultHUD =
         , _closeObjects = []
         }
 
-defaultWorldHammers :: M.Map WorldHammer HammerPosition
-defaultWorldHammers = M.fromSet (const HammerUp) $ S.fromList [minBound .. maxBound]
-
 --youLight :: TempLightSource
 --youLight = TLS
 --    { _tlsParam = LSParam