Clamp framebuffer textures to edges

src/Dodge/Distortion.hs

@@ -1,9 +1,10 @@
-module Dodge.Distortion where
+{-# LANGUAGE LambdaCase #-}
+module Dodge.Distortion (updateDistortion) where
 
 import Dodge.Data.Distortion
 
 updateDistortion :: Distortion -> Maybe Distortion
-updateDistortion dt = case dt of
+updateDistortion = \case
     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)