Linting, haddocking

src/Dodge/Layout/Tree/Either.hs

@@ -28,22 +28,20 @@ appendEitherTree
     :: Tree (Either a a)    -- ^ The first tree
     -> [Tree (Either a a)]    -- ^ The forest to append
     -> Tree (Either a a)
-appendEitherTree (Node (Left x) ts) ts'  = Node (Left x) $ map (flip appendEitherTree ts') ts
+appendEitherTree (Node (Left x) ts) ts'  = Node (Left x) $ map (`appendEitherTree` ts') ts
 appendEitherTree (Node (Right x) ts) ts' = Node (Left x) ts'
 
 removeEither (Left y)  = y
 removeEither (Right y) = y
 
-{- 
+{-  |
 Make a singleton connection of an Either Tree.
 -}
 connectRoom :: a -> Tree (Either a a)
 connectRoom r = Node (Right r) [] 
 
-{-
+{- |
 Make a singleton dead end of an Either Tree.
 -}
 deadRoom :: a -> Tree (Either a a)
 deadRoom r = Node (Left r) []
-
-