Refactor, try to limit dependencies

src/Dodge/FloatFunction.hs

@@ -1,16 +1,17 @@
 module Dodge.FloatFunction where
+
 import Dodge.Data.FloatFunction
 
 doFloatFloat :: FloatFloat -> Float -> Float
 doFloatFloat ff x = case ff of
     FloatID -> x
     FloatConst y -> y
-    FloatFOV a 
-        | abs x < 0.5 * a   -> 1
-        | otherwise         -> 0 
-    FloatLessCheck y 
-        | x > y     -> 0
+    FloatFOV a
+        | abs x < 0.5 * a -> 1
+        | otherwise -> 0
+    FloatLessCheck y
+        | x > y -> 0
         | otherwise -> 1
-    FloatAbsCheckGreaterLess a y1 y2 
+    FloatAbsCheckGreaterLess a y1 y2
         | abs x > a -> y1
         | otherwise -> y2