Cleanup

2022-07-16 18:07:43 +01:00
parent 11732358ed
commit 22adcb89e0
7 changed files with 31 additions and 34 deletions
@@ -16,5 +16,11 @@ data LightSource = LS
    , _lsDir    :: !Float
    , _lsPict   :: LightSource -> Picture
    }
+data TempLightSource = TLS 
+    { _tlsParam     :: LSParam
+    , _tlsUpdate    :: TempLightSource -> Maybe TempLightSource
+    , _tlsTime      :: !Int
+    }
 makeLenses ''LSParam
 makeLenses ''LightSource
+makeLenses ''TempLightSource