Refactor, try to limit dependencies

2022-07-28 00:59:56 +01:00
parent 8aa5c17ab9
commit 160560af5f
418 changed files with 15104 additions and 13342 deletions
@@ -1,10 +1,10 @@
 module Dodge.Distortion where
+
 import Dodge.Data.Distortion

 updateDistortion :: Distortion -> Maybe Distortion
-updateDistortion  dt = case dt of
-  RadialDistortion a b c v 
-    | v > 1 -> Just $ RadialDistortion a b c $ max 1 (v - 0.05)
-    | v < 1 -> Just $ RadialDistortion a b c $ min 1 (v + 0.05) 
-    | otherwise -> Nothing
-
+updateDistortion dt = case dt of
+    RadialDistortion a b c v
+        | v > 1 -> Just $ RadialDistortion a b c $ max 1 (v - 0.05)
+        | v < 1 -> Just $ RadialDistortion a b c $ min 1 (v + 0.05)
+        | otherwise -> Nothing