Start unifying drawn cursors

src/Dodge/Data/Room.hs

@@ -1,10 +1,14 @@
 {-# LANGUAGE StrictData #-}
 {-# LANGUAGE TemplateHaskell #-}
 
-module Dodge.Data.Room where
+module Dodge.Data.Room (
+    module Dodge.Data.Room,
+    module Dodge.Data.CardinalPoint,
+) where
 
 import Control.Lens
 import qualified Data.Set as S
+import Dodge.Data.CardinalPoint
 import Geometry
 
 data RoomPos = RoomPos
@@ -44,13 +48,6 @@ data RoomLinkType
     | BlockedLink
     deriving (Eq, Ord, Show)
 
-data CardinalPoint
-    = North
-    | East
-    | South
-    | West
-    deriving (Eq, Ord, Show)
-
 data RoomWire
     = --RoomWire Point2 Float
       WallWire Point2 Float Float