packagesFrom :: FilePath -> IO [Package]
packagesFrom file = do
  text <- readFile file
  return $ Package . read <$> lines text
packagesFrom :: FilePath -> IO [Package]
packagesFrom file = do
  text <- readFile file
  return $ Package . read <$> lines text
packagesFrom file = do
  text <- readFile file
  return $ Package . read <$> lines text