General cleanup, remove Drawing type synonym

2021-03-23 15:48:14 +01:00
parent b13467053a
commit 451ef98b9f
8 changed files with 100 additions and 48 deletions
@@ -151,7 +151,7 @@ placeCr crF p rot w = over creatures addCr w
                                (crF {_crPos = p,_crOldPos = p,_crDir = rot,_crID = newKey crs}) 
                                crs

-placeLS :: LightSource -> Drawing -> Point2 -> Float -> World -> World
+placeLS :: LightSource -> Picture -> Point2 -> Float -> World -> World
 placeLS ls dec p rot w = over lightSources addLS 
                            $ over decorations addDec w
    where addLS lss = IM.insert (newKey lss)