Cleanup module pathing

src/Dodge/Data/ArcStep.hs

@@ -1,25 +1,35 @@
 {-# LANGUAGE DeriveGeneric #-}
-{-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE StrictData #-}
+{-# LANGUAGE TemplateHaskell #-}
+
 module Dodge.Data.ArcStep where
-import Dodge.Data.CrWlID
-import Geometry.Data
+
 import Control.Lens
-import GHC.Generics
 import Data.Aeson
+import Dodge.Data.CrWlID
+import GHC.Generics
+import Geometry.Data
+
 data ArcStep = ArcStep
     { _asPos :: Point2
     , _asDir :: Float
     , _asObject :: CrWlID --Maybe (Either Creature Wall)
     }
-  deriving (Eq,Ord,Show,Read,Generic)
-instance ToJSON ArcStep  where
+    deriving (Eq, Ord, Show, Read, Generic)
+
+instance ToJSON ArcStep where
     toEncoding = genericToEncoding defaultOptions
-instance FromJSON ArcStep 
-data NextArcStep = EndArc
+
+instance FromJSON ArcStep
+
+data NextArcStep
+    = EndArc
     | DefaultArcStep
-  deriving (Eq,Ord,Show,Read,Generic)
-instance ToJSON NextArcStep  where
+    deriving (Eq, Ord, Show, Read, Generic)
+
+instance ToJSON NextArcStep where
     toEncoding = genericToEncoding defaultOptions
-instance FromJSON NextArcStep 
+
+instance FromJSON NextArcStep
+
 makeLenses ''ArcStep