Refactoring

2021-05-03 23:59:20 +02:00
parent b826299cbd
commit e21178b688
20 changed files with 830 additions and 731 deletions
@@ -416,7 +416,8 @@ data Either3 a b c = E3x1 a | E3x2 b | E3x3 c

 data Wall 
    = Wall 
-        { _wlLine :: [Point2] , _wlID :: Int 
+        { _wlLine :: [Point2] 
+        , _wlID :: Int 
        , _wlColor :: Color
        , _wlSeen :: Bool
        , _wlIsSeeThrough :: Bool