Cleanup

src/Dodge/Item/HeldOffset.hs

@@ -1,4 +1,8 @@
-module Dodge.Item.HeldOffset where
+module Dodge.Item.HeldOffset (
+    turretItemOffset,
+    twoFlatHRot,
+    heldItemOffset,
+) where
 
 import Data.Maybe
 import Dodge.Creature.HandPos
@@ -66,4 +70,4 @@ strideRot cr = case cr ^? crStance . carriage of
     sLen = _strideLength $ _crStance cr
 
 twoFlatHRot :: Creature -> Float
-twoFlatHRot cr = 2 * strideRot cr
+twoFlatHRot = (2 *) . strideRot