Refactor light sources

2021-11-28 16:53:26 +00:00
parent 1d9dd3e4e0
commit 618653a86e
28 changed files with 169 additions and 155 deletions
@@ -60,7 +60,7 @@ handleMouseMotionEvent mmev u = Just $ u & uvWorld . mousePos .~ V2
 handleMouseButtonEvent :: MouseButtonEventData -> Universe -> Maybe Universe
 handleMouseButtonEvent mbev u = case mouseButtonEventMotion mbev of
    Released -> Just $ u & uvWorld . mouseButtons %~ S.delete but
-    Pressed  -> (handlePressedMouseButton but)
+    Pressed  -> handlePressedMouseButton but
        (u & uvWorld . mouseButtons %~ S.insert but)
  where 
    but = mouseButtonEventButton mbev