Fix bug that allowed for in links to be used as out links

2021-11-23 12:08:33 +00:00
parent 5ab5be3087
commit 05bb1961c0
6 changed files with 20 additions and 20 deletions
@@ -84,7 +84,7 @@ updateSingleNode f update t@(Node x ts)
    updateChildren = map (Node x) (subMap (updateSingleNode f update) ts)

 subMap :: (a -> [a]) -> [a] -> [[a]]
-subMap f (x:xs) = (f x <&> (: xs)) ++ ( (x :) <$> (subMap f xs) )
+subMap f (x:xs) = (f x <&> (: xs)) ++ ( (x :) <$> subMap f xs ) 
 subMap _ [] = []

 --subMap' :: Monad m => (a -> m a) -> [a] -> m [a]