Cleanup

2022-07-16 18:07:43 +01:00
parent 11732358ed
commit 22adcb89e0
7 changed files with 31 additions and 34 deletions
@@ -35,7 +35,7 @@ tlsTimeRadFunPos t rmax intensityF p = TLS
    , _tlsTime = t
    }
  where
-    upF _ tls 
+    upF tls 
        | _tlsTime tls <= 0 = Nothing
        | otherwise         = Just $ tls    
            & tlsTime -~ 1
@@ -83,7 +83,7 @@ tlsTimeRadColPos t rmax col (V3 x y z) = TLS
    , _tlsTime = t
    }
  where
-    upF _ tls 
+    upF tls 
        | _tlsTime tls <= 0 = Nothing
        | otherwise         = Just $ tls    
            & tlsTime -~ 1