Hlint pass

src/Dodge/Projectile/Update.hs

@@ -1,5 +1,4 @@
-{-# LANGUAGE LambdaCase #-}
-
+--{-# LANGUAGE LambdaCase #-}
 --{-# OPTIONS_GHC -Wno-unused-imports #-}
 module Dodge.Projectile.Update (updateProjectile) where
 
@@ -74,7 +73,7 @@ shellHitWall p n wl pj w
       , abs (dot (pj ^. pjVel) (normalize n)) < x =
         w
             & topj . pjVel %~ reflectInNormal n
-            & topj . pjPos .~ p + (normalize n)
+            & topj . pjPos .~ p + normalize n
             & soundStart (ShellSound (pj ^. pjID)) (pj ^. pjPos . _xy) click1S Nothing
     | otherwise =
         w & topj . pjPos .~ p