[Haskell-cafe] GLFW not working in Cabal 1.18

[Thiago Negri]

The package GLFW is not building in Cabal 1.18.

Setup.hs [1] depends on `rawSystemStdInOut` [2] that changed signature
between 1.16 and 1.18.

Is this considered a public API of Cabal?


Cabal 1.16
rawSystemStdInOut
 :: Verbosity
 -> FilePath
 -> [String]
 -> Maybe (String, Bool)
 -> Bool
 -> IO (String, String, ExitCode)


Cabal 1.18
rawSystemStdInOut
 :: Verbosity
 -> FilePath
 -> [String]
 -> Maybe FilePath -- new arg
 -> Maybe [(String, String)] -- new arg
 -> Maybe (String, Bool)
 -> Bool
 -> IO (String, String, ExitCode)



Compilation output:

[1 of 1] Compiling Main             (
/tmp/GLFW-0.5.1.0-4035/GLFW-0.5.1.0/Setup.hs,
/tmp/GLFW-0.5.1.0-4035/GLFW-0.5.1.0/dist/setup/Main.o )

/tmp/GLFW-0.5.1.0-4035/GLFW-0.5.1.0/Setup.hs:167:33:
    Couldn't match expected type `IO (t0, t1, ExitCode)'
                with actual type `Maybe (String, Bool)
                                  -> Bool -> IO (String, String, ExitCode)'
    In the return type of a call of `rawSystemStdInOut'
    Probable cause: `rawSystemStdInOut' is applied to too few arguments
    In a stmt of a 'do' block:
      (out, err, exitCode) <- rawSystemStdInOut
                                verbosity "cc" (["-c", path, "-o", objPath]
++ flags) Nothing False
    In the expression:
      do { hClose outHandle;
           hPutStr inHandle contents;
           hClose inHandle;
           (out, err, exitCode) <- rawSystemStdInOut
                                     verbosity "cc" (["-c", path, ....] ++
flags) Nothing False;
           .... }

/tmp/GLFW-0.5.1.0-4035/GLFW-0.5.1.0/Setup.hs:167:113:
    Couldn't match expected type `Maybe [(String, String)]'
                with actual type `Bool'
    In the fifth argument of `rawSystemStdInOut', namely `False'
    In a stmt of a 'do' block:
      (out, err, exitCode) <- rawSystemStdInOut
                                verbosity "cc" (["-c", path, "-o", objPath]
++ flags) Nothing False
    In the expression:
      do { hClose outHandle;
           hPutStr inHandle contents;
           hClose inHandle;
           (out, err, exitCode) <- rawSystemStdInOut
                                     verbosity "cc" (["-c", path, ....] ++
flags) Nothing False;
           .... }
Failed to install GLFW-0.5.1.0


[1] http://code.haskell.org/GLFW/Setup.hs
[2]
https://github.com/haskell/cabal/blob/d16c307c33fb7af19d8f17a2ad8be4902a3af21e/Cabal/Distribution/Simple/Utils.hs#L454
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://www.haskell.org/pipermail/haskell-cafe/attachments/20130910/a5040448/attachment.htm>