Work on grid for room placements

src/Dodge/Data/CardinalPoint.hs

@@ -1,3 +1,4 @@
+{-# LANGUAGE LambdaCase #-}
 {-# LANGUAGE TemplateHaskell #-}
 module Dodge.Data.CardinalPoint where
 import Control.Lens
@@ -9,6 +10,13 @@ data CardinalPoint
     | West
     deriving (Eq, Ord, Show, Bounded, Enum)
 
+revCard :: CardinalPoint -> CardinalPoint
+revCard = \case
+    North -> South
+    East -> West
+    South -> North
+    West -> East
+
 data CardinalPointBetween
     = NorthEast
     | SouthEast