[Pkg-haskell-maintainers] Bug#571354: Package plugins and GHC 6.12

[Giovanni Mascellani]

Hi.

I wrote this mail to you some time ago, but never got a reply. I don't
want to bother you, but I'm resending it just in case the previous copy
had got lost.

I'm a member of the Debian Haskell Team. We recently migrated to GHC
6.12, but you're package seems not to be compilable with GHC 6.12 (the
same happens also on hackage). Hackage failure log is here: [1].

 [1]
http://hackage.haskell.org/packages/archive/plugins/1.4.1/logs/failure/ghc-6.12

I've created a patch (attached) which should fix some of the problems.
Anyway, now I'm facing two errors I'm not able to deal with:

> [11 of 15] Compiling System.Plugins.Load ( src/System/Plugins/Load.hs, dist-ghc6/build/System/Plugins/Load.o )
> 
> src/System/Plugins/Load.hs:98:4:
>     Couldn't match expected type `IO ModIface'
>            against inferred type `DynFlags.DynFlags -> b'
>     In a stmt of a 'do' expression: e <- newHscEnv undefined
>     In the expression:
>         do { e <- newHscEnv undefined;
>              initTcRnIf
>                'r'
>                e
>                undefined
>                undefined
>                (readBinIface IgnoreHiWay QuietBinIFaceReading hi_path) }
>     In the definition of `readBinIface'':
>         readBinIface' hi_path
>                         = do { e <- newHscEnv undefined;
>                                initTcRnIf
>                                  'r'
>                                  e
>                                  undefined
>                                  undefined
>                                  (readBinIface IgnoreHiWay QuietBinIFaceReading hi_path) }
> 
> src/System/Plugins/Load.hs:441:13:
>     A lazy (~) pattern cannot contain unlifted types ~(Ptr addr)
>     In the pattern: ~(Ptr addr)
>     In a stmt of a 'do' expression:
>         (ptr@(~(Ptr addr))) <- withCString symbol c_lookupSymbol
>     In the expression:
>         do { let symbol = prefixUnderscore
>                         ++  (maybe "" (\ p -> ...) pkg)
>                           ++  encode m ++ "_" ++ (encode valsym) ++ "_closure";
>              (ptr@(~(Ptr addr))) <- withCString symbol c_lookupSymbol;
>              if (ptr == nullPtr) then
>                  return Nothing
>              else
>                  case addrToHValue# addr of { (# hval #) -> return (Just hval) } }

Do you have any advices for me?

I hope the attached patch can be helpful for you. :-)

Thanks, Giovanni.
-- 
Giovanni Mascellani <mascellani at poisson.phc.unipi.it>
Pisa, Italy

Web: http://poisson.phc.unipi.it/~mascellani
Jabber: g.mascellani at jabber.org / giovanni at elabor.homelinux.org

-------------- next part --------------
A non-text attachment was scrubbed...
Name: fix-ghc6.12-ftbfs.patch
Type: text/x-patch
Size: 2693 bytes
Desc: not available
URL: <http://lists.alioth.debian.org/pipermail/pkg-haskell-maintainers/attachments/20100313/57b28fe6/attachment.bin>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: signature.asc
Type: application/pgp-signature
Size: 1114 bytes
Desc: OpenPGP digital signature
URL: <http://lists.alioth.debian.org/pipermail/pkg-haskell-maintainers/attachments/20100313/57b28fe6/attachment.pgp>