Cleanup

2022-07-21 18:26:48 +01:00
parent b58444f931
commit 14f3c8bc52
4 changed files with 1 additions and 12 deletions
@@ -12,8 +12,6 @@ import ShapePicture
 import Shape
 import Geometry

-import qualified IntMapHelp as IM
-import Control.Lens
 makeButton 
    :: Color 
    -> WorldEffect -- ^ Effect when pressed
@@ -24,8 +22,6 @@ makeButton col eff = defaultButton
    , _btText = "Button"
    , _btState = BtOff
    }
-  where
-    btpos b w' = _btPos $ _buttons w' IM.! _btID b


 drawSwitchWire :: Color -> Color -> Button -> SPic
@@ -51,8 +47,6 @@ makeSwitchSPic dswitch effOn effOff = defaultButton
    , _btText = "SWITCH/"
    , _btState = BtOff
    }
-  where 
-    bpos b w = _btPos $ _buttons w IM.! _btID b
    
 makeSwitch
    :: Color