1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
{-# OPTIONS_GHC -fno-warn-name-shadowing #-}
module Debian.Deb where
import Control.Monad
import Data.ByteString.Lazy (empty)
import Debian.Control.Common
import System.Exit (ExitCode(..))
import System.Unix.Directory (withTemporaryDirectory, withWorkingDirectory)
import System.Unix.FilePath (realpath)
import System.Unix.Process (readProcessWithExitCode)
fields :: (ControlFunctions a) => FilePath -> IO (Control' a)
fields debFP =
withTemporaryDirectory ("fields.XXXXXX") $ \tmpdir ->
do debFP <- realpath debFP
withWorkingDirectory tmpdir $
do (res, out, err) <- readProcessWithExitCode "ar" ["x",debFP,"control.tar.gz"] id empty
when (res /= ExitSuccess) (error $ "Dpkg.fields: " ++ show out ++ "\n" ++ show err ++ "\n" ++ show res)
(res, out, err) <- readProcessWithExitCode "tar" ["xzf", "control.tar.gz", "./control"] id empty
when (res /= ExitSuccess) (error $ "Dpkg.fields: " ++ show out ++ "\n" ++ show err ++ "\n" ++ show res)
c <- parseControlFromFile "control"
case c of
Left e -> error (show e)
(Right c) -> return c -- I don't think we need seq because parsec will force everything from the file
|
