Replace PutShape with PutForeground

2022-06-27 14:30:08 +01:00
parent fec72cdf48
commit 0def31895f
11 changed files with 39 additions and 55 deletions
@@ -45,8 +45,8 @@ keyholeCorridor :: Room
 keyholeCorridor = corridor
    { _rmPath  = []
    , _rmPmnts = 
-        [ midWall $ reverse $ rectNSWE top bot 15 0 
-        , midWall $ reverse $ rectNSWE top bot 40 25]
+        [ midWall $ rectNSWE top bot 15 0 
+        , midWall $ rectNSWE top bot 40 25]
    }
  where
    top = 65