Remove duplicate pathTo and unused replaceMultiLines

This commit is contained in:
Vidar Holen 2019-01-08 22:16:17 -08:00
parent e45b679d58
commit df7f00eaed
3 changed files with 22 additions and 41 deletions

View file

@ -380,10 +380,6 @@ isParentOf tree parent child =
parents params = getPath (parentMap params)
pathTo t = do
parents <- reader parentMap
return $ getPath parents t
-- Find the first match in a list where the predicate is Just True.
-- Stops if it's Just False and ignores Nothing.
findFirst :: (a -> Maybe Bool) -> [a] -> Maybe a