Restyled by fourmolu (#375)

Co-authored-by: Restyled.io <commits@restyled.io>

src/Swarm/Game/State.hs

@@ -370,7 +370,7 @@ viewingRegion :: GameState -> (Int64, Int64) -> (W.Coords, W.Coords)
 viewingRegion g (w, h) = (W.Coords (rmin, cmin), W.Coords (rmax, cmax))
  where
   V2 cx cy = g ^. viewCenter
-  (rmin, rmax) = over both (+ (-cy - h `div` 2)) (0, h - 1)
+  (rmin, rmax) = over both (+ (- cy - h `div` 2)) (0, h - 1)
   (cmin, cmax) = over both (+ (cx - w `div` 2)) (0, w - 1)
 
 -- | Find out which robot is currently specified by the

src/Swarm/Game/Step.hs

@@ -1340,7 +1340,7 @@ execConst c vs s k = do
       [VBool b] -> return $ Out (VBool (not b)) s k
       _ -> badConst
     Neg -> case vs of
-      [VInt n] -> return $ Out (VInt (-n)) s k
+      [VInt n] -> return $ Out (VInt (- n)) s k
       _ -> badConst
     Eq -> returnEvalCmp
     Neq -> returnEvalCmp

src/Swarm/Game/World.hs

@@ -84,11 +84,11 @@ instance Wrapped Coords
 
 -- | Convert an (x,y) location to a 'Coords' value.
 locToCoords :: V2 Int64 -> Coords
-locToCoords (V2 x y) = Coords (-y, x)
+locToCoords (V2 x y) = Coords (- y, x)
 
 -- | Convert 'Coords' to an (x,y) location.
 coordsToLoc :: Coords -> V2 Int64
-coordsToLoc (Coords (r, c)) = V2 c (-r)
+coordsToLoc (Coords (r, c)) = V2 c (- r)
 
 ------------------------------------------------------------
 -- World function

src/Swarm/Language/Syntax.hs

@@ -117,9 +117,9 @@ allDirs = [minBound .. maxBound]
 -- | Information about all directions
 dirInfo :: Direction -> DirInfo
 dirInfo d = case d of
-  DLeft -> relative (\(V2 x y) -> V2 (-y) x)
-  DRight -> relative (\(V2 x y) -> V2 y (-x))
-  DBack -> relative (\(V2 x y) -> V2 (-x) (-y))
+  DLeft -> relative (\(V2 x y) -> V2 (- y) x)
+  DRight -> relative (\(V2 x y) -> V2 y (- x))
+  DBack -> relative (\(V2 x y) -> V2 (- x) (- y))
   DForward -> relative id
   DNorth -> cardinal north
   DSouth -> cardinal south