printProjects :: [Project] -> IO ()
printProjects = mapM_ printProject
  where
    printProject Project{..} = Text.putStrLn $ _name <> ": " <> _path
printProjects :: [Project] -> IO ()
printProjects = mapM_ printProject
  where
    printProject Project{..} = Text.putStrLn $ _name <> ": " <> _path
printProjects = mapM_ printProject
  where
    printProject Project{..} = Text.putStrLn $ _name <> ": " <> _path