-- Try to parse the lambdabot home, otherwise return empty string.
parsedHome :: String -> String
parsedHome = path . find (isPrefixOf prefix) . lines where
    path = trim . filter (/='"') . join . drop 1 . words . fromMaybe ""
    prefix = "setLambdabotHome"
    trim = unwords . words
parsedHome :: String -> String
parsedHome = path . find (isPrefixOf prefix) . lines where
    path = trim . filter (/='"') . join . drop 1 . words . fromMaybe ""
    prefix = "setLambdabotHome"
    trim = unwords . words
parsedHome = path . find (isPrefixOf prefix) . lines where
    path = trim . filter (/='"') . join . drop 1 . words . fromMaybe ""
    prefix = "setLambdabotHome"
    trim = unwords . words