Hlinting

2021-04-27 11:45:43 +02:00
parent f8351fb150
commit 64b5b9e2a5
34 changed files with 974 additions and 761 deletions
@@ -21,7 +21,8 @@ branchRectWith t = do
    y <- state $ randomR (100,200)
    b <- t
    root <- randomiseOutLinks $ roomRectAutoLinks x y
-    return $ Node (Left root) [Node (Right door) [], fmap rToL $ treeFromTrunk [Left door] b]
-        where rToL :: Either a a -> Either a a
-              rToL (Right r) = Left r
-              rToL (Left r)  = Left r
+    return $ Node (Left root) [Node (Right door) [], rToL <$> treeFromTrunk [Left door] b]
+  where 
+    rToL :: Either a a -> Either a a
+    rToL (Right r) = Left r
+    rToL (Left r)  = Left r