Cleanup

src/TreeHelp.hs

@@ -115,7 +115,7 @@ msafeUpdateSingleNode :: Monoid b => (a -> Bool) -> (Tree a -> (b, Tree a)) -> T
 msafeUpdateSingleNode f g t = fromMaybe (mempty,t) $ listToMaybe $ mupdateSingleNodes f g t
 
 msubMap :: Functor m => (a -> [m a]) -> [a] -> [m [a]]
-msubMap f (x:xs) = (f x <&> fmap (: xs))  ++ ( (fmap (x :)) <$> msubMap f xs ) 
+msubMap f (x:xs) = (f x <&> fmap (: xs))  ++ ( fmap (x :) <$> msubMap f xs ) 
 msubMap _ [] = []
 
 subMap :: (a -> [a]) -> [a] -> [[a]]