rintSearchPaths :: [FilePath] -> IO ()
printSearchPaths paths =
  do putStrLn "Searching the following extra paths:"
     mapM_ print paths
     putStrLn ""

printSearchPaths :: [FilePath] -> IO ()
printSearchPaths paths =
  do putStrLn "Searching the following extra paths:"
     mapM_ print paths
     putStrLn ""
printSearchPaths paths =
  do putStrLn "Searching the following extra paths:"
     mapM_ print paths
     putStrLn ""