printPackage :: FilePath -> IO ()
printPackage path = do
  metadata <- BS.readFile path
  let cpv = BSC.pack path
  either (hPutStrLn stderr . ((path ++ ": ") ++ ))
         print
         (parsePackage cpv metadata)
printPackage :: FilePath -> IO ()
printPackage path = do
  metadata <- BS.readFile path
  let cpv = BSC.pack path
  either (hPutStrLn stderr . ((path ++ ": ") ++ ))
         print
         (parsePackage cpv metadata)
printPackage path = do
  metadata <- BS.readFile path
  let cpv = BSC.pack path
  either (hPutStrLn stderr . ((path ++ ": ") ++ ))
         print
         (parsePackage cpv metadata)