- Glasgow-haskell-users

divRem by `-' performance
by Serge D. Mechveliani 18 Oct '12

18 Oct '12

People, consider the following contrived program for division with remainder: ---------------------------------------------------------------- qRem :: Int -> Int -> (Int, Int) qRem m n = if m < 0 || n <= 0 then error "\nwrong arguments in qRem.\n" else qRem' 0 m where qRem' q r = if r < n then (q, r) else qRem' (succ q) (r - n) main = putStr $ shows (qRem n 5) "\n" where e = 25 n = 2^e ---------------------------------------------------------------- Compilation in ghc-7.4.1 : ghc --make -O -rtsopts Main Rinning: time ./Main +RTS -K.. -M.. -RTS For e = 25, it takes the minimum of -K80m -M280m (on my Linux Debian machine). Is not this memory eagerness strange? Regards, Sergei

3 7

RE: PolyKind issue in GHC 7.6.1rc1: How to make a kind a functional dependency?
by Simon Peyton-Jones 16 Oct '12

16 Oct '12

I'm afraid I've rather lost track of this thread. Would someone care to summarise, on a wiki page perhaps? I think the story is: * Inspired by Nick's idea, Iavor and Pedro have converged on a single, type-family-based style for defining singletons. * This style no longer requires Any to be a data type, so I can turn it back into a type family, which is a Good Thing because it paves the way for an eta rule. RSVP and I'll do that. * Iavor mutters about sketchiness, but I'm not sure what that means specifically. * I'm not sure how, it at all, it affects Richard's singletons paper Simon From: Iavor Diatchki [mailto:diatchki@galois.com] Sent: 12 October 2012 21:11 To: Richard Eisenberg Cc: Nicolas Frisby; Simon Peyton-Jones; Stephanie Weirich; Conor McBride; glasgow-haskell-users(a)haskell.org Subject: Re: PolyKind issue in GHC 7.6.1rc1: How to make a kind a functional dependency? Hello, (summary: I think Nick's idea works for what's in GHC.TypeLits, and it would allow us to switch from `Any` as a constructor to `Any` as a function.) On 10/11/2012 08:47 PM, Richard Eisenberg wrote: Iavor and I collaborated on the design of the building blocks of singleton types, as we wanted our work to be interoperable. A recent scan through TypeLits tells me, though, that somewhere along the way, our designs diverged a bit. Somewhere on the to-do list is to re-unify the interfaces, and actually just to import TypeLits into Data.Singletons so the definitions are one and the same. Iavor, I'm happy to talk about the details if you are. The module GHC.TypeLits hasn't really changed much since last we talked (the Nat1 type is new, but that's only for working with type-level naturals and unrelated to this discussion). I added the SingE class so that my work is compatible with Richard's (a simple newtype suffices if we are only interested in working with singletons for type-level literals). So we should certainly make the two compatible again, let me know what needs to change. I was just playing around with Nick's idea and here is my version of the code, which loads fine (but as I discuss in point 2 bellow I think it is a bit sketchy...) import GHC.TypeLits hiding (SingE(..), Kind) import qualified GHC.TypeLits as Old data Kind (k :: *) -- discuessed in point 2 bellow class SingE (any :: Kind k) rep | any -> rep where fromSing :: Sing (a :: k) -> rep instance SingE (any :: Kind Nat) Integer where fromSing = Old.fromSing instance SingE (any :: Kind Symbol) String where fromSing = Old.fromSing I think that there are two interesting points about this code: 1. It is important that the instances are polymorphic because this tells GHC that it is allowed to use the instance in any context as long as the kinds match, regardless of the actual type. Note that this is not the case if we write the instance using the singleton member of the proxy kind: data KindProxy (k :: *) = KindProxy instance SingE ('KindProxy :: KindProxy Nat) Integer where fromSing (SNat n) = n Such instances would only work if GHC could see that the type is 'KindProxy so if we have a type variable of the correct kind, the instance would not reduce. This is related to the eta-expansion issue---if we eliminated `Any`, then GHC could perform a kind-based improvement to deduce that the type variable must be equal to `KindProxy`, because this is the only type with the correct kind. 2. As Nick noticed, we are not doing any fancy type computing in the class, so we don't actually need any KindProxy elements---we are just doing overloading based on a kind rather than a type. To emphasize this I made Kind an empty type/kind and GHC is still happy: instances are resolved as intended. But... `Kind` has no elements so what are the instances applied to? The only reason this works is that GHC has defaulted the instances to use `Any`. To me this seems a bit sketchy. So what to do? Changing the code in this style (using the normal non-empty proxy) makes sense because I think that it would allow us to change `Any` into a type function rather than a type constructor, like Simon did and un-did recently. The reason I think this will work is because now there will be no uses of `Any` in the definitions of the instances, it will only appear in the uses of the instances. Furthermore, I think it makes sense for GHC to check that for each use of the type function `Any`, the kind where it is used is non-empty. I'm not sure how easy it would be to implement that, so maybe we can deal with it later. -Iavor

3 2

Re: Constructing TH types
by Eric M. Pashman 16 Oct '12

16 Oct '12

Nicolas, thanks for the welcome, and thanks for pointing out the additional 'Type' constructors! I'd looked over the available constructors, but apparently not very well. The 'ListT', 'TupleT', 'ArrowT', etc., constructors are precisely what I need to make this work in a straightforward fashion. So I don't actually have a problem making the right 'Name' value, just a problem reading the TH source. Well, that's that. ... Many thanks, Eric On Oct 7, 2012, at 24:22 , Nicolas Frisby <nicolas.frisby(a)gmail.com> wrote: > On Sat, Oct 6, 2012 at 2:24 PM, Eric M. Pashman <eric.pashman(a)gmail.com> wrote: >> Hello, >> >> I'm using Template Haskell (which I've just begun to learn) to do "stanamic" type-checking. Basically I'm just converting 'TypeRep' and 'TyCon' values (from 'Data.Typeable') into Template Haskell's representation (i.e., values of the 'Type' datatype) and splicing them as type signatures in code where compile-time type inference is otherwise impossible. > > Hi Eric. I'm going to try to answer each of your questions below, but > it's not entirely clear to me what you are trying to do. If you can > provide more context, we might be able to give better answers or > perhaps suggest alternative approaches. > >> My first thought was simply to make a TH 'Name' from the 'show' representation of a 'TypeRep', and turn that into a 'Type': >> >> toType :: TypeRep -> Type >> toType = ConT . mkName . show >> >> This works for simple, atomic types like 'Int', but it chokes on compound types (I mean those with a type parameter, e.g. 'Maybe Int'.), for reasons I don't quite understand. > > If I fire up ghci and enter the following > > Prelude> :type Language.Haskell.TH.ConT > > I get back (roughly) the answer: ConT :: Name -> Type > > In particular, note that the argument to ConT is a name. Your code > indeed builds a name, but, in your example, it builds the invalid name > "Maybe Int". When I splice in the resulting type (ConT (mkName "Maybe > Int")), I get the error message > > Not in scope: type constructor or class `Maybe Int' > > ConT is only for a single named type; it cannot (by itself) represent > general types. Does that explanation get the big picture across? > > In particular, it cannot (by itself) represent an applications of one > named type to another. The type "Maybe Int" can be correctly > represented as ConT (mkName "Maybe") `AppT` ConT (mkName "Int"). Or, > even better, as ConT ''Maybe `AppT` ConT ''Int. Those ''s are both two > occurrences of single quotes — very handy but less known TH syntax. > >> So I tried this instead: >> >> toType tr = foldr (flip AppT . toType) (tcToType tc) trs where >> (tc, trs) = splitTyConApp tr >> >> tcToType :: TyCon -> Type >> tcToType = ConT . mkName . show >> >> This works for both simple types and compound types made from standard prefix type-constructors, but it breaks on sugared constructors like '[]'; a 'TypeRep' for, say, '[Int]' gets turned into an invalid type that spliced in as '[] Int'. >> >> Basically I don't quite understand how 'Name' construction and binding works. Is there a better way to make a 'Name' that will work with sugared type constructors, or do I have to special-case them while doing something like the above? (If so, what are all the special cases? Anything beyond lists and tuples?) > > Someone else can surely better explain Name construction and binding. > I recall there being subtleties, but instead of internalizing them, I > have been fortunate in my needs to be able to avoid mkName altogether > (via the ' and '' syntax). It sounds like you might actually require > it for you needs though. Hopefully someone else chimes in. > > Without more context, I'm not seeing an obviously more robust way that > will suite your needs. > > One way to see which special cases there are is to fire up ghci and > look at the constructors of the Type type. > > Prelude> :info Language.Haskell.TH.Type > data Type > = ForallT [TyVarBndr] Cxt Type > | AppT Type Type > | SigT Type Kind > | VarT Name > | ConT Name > | PromotedT Name > | TupleT Int > | UnboxedTupleT Int > | ArrowT > | ListT > | PromotedTupleT Int > | PromotedNilT > | PromotedConsT > | StarT > | ConstraintT > | LitT TyLit > > There are some fancier things in these constructors like support for > universal quantification and promotion, but the three constructors > that I'm guessing you're most likely to be interested in as special > cases are TupleT, ArrowT, and ListT. These are all pretty much > pairwise interchangable, eg ArrowT for (ConT ''(GHC.Prim.->)) and > ListT for (ConT ''[]). And unless my experience is out-of-date with > respect to this now, sometimes TupleT doesn't always show up instead > of a type like (ConT ''(GHC.Tuple.(,,,))). > > HTH. > >> >> Alternative approaches and general tips and hints are welcome as well. I'm fairly new to Haskell in general. > > Welcome, enjoy, and good luck! > >> >> Regards, >> >> Eric >> >> >> PS: To compile the code above, you just need these imports: >> >> import Language.Haskell.TH >> import Data.Typeable (TyCon, TypeRep, splitTyConApp) >> >> Here are some test cases: >> >> import Data.Typeable (typeOf) >> >> tr0 = typeOf (undefined :: Int) -- Simple >> tr1 = typeOf (undefined :: Maybe Int) -- Compound, infix >> tr = typeOf (undefined :: [Int]) -- Compound, sugared >> >> >> _______________________________________________ >> Glasgow-haskell-users mailing list >> Glasgow-haskell-users(a)haskell.org >> http://www.haskell.org/mailman/listinfo/glasgow-haskell-users

3 4

PolyKind issue in GHC 7.6.1rc1: How to make a kind a functional dependency?
by Edward Kmett 12 Oct '12

12 Oct '12

If I define the following {-# LANGUAGE FunctionalDependencies, GADTs, KindSignatures, MultiParamTypeClasses, PolyKinds, RankNTypes, TypeOperators, DefaultSignatures, DataKinds, FlexibleInstances, UndecidableInstances #-} module Indexed.Test where class IMonad (m :: (k -> *) -> k -> *) where ireturn :: a x -> m a x infixr 5 :- data Thrist :: ((i,i) -> *) -> (i,i) -> * where Nil :: Thrist a '(i,i) (:-) :: a '(i,j) -> Thrist a '(j,k) -> Thrist a '(i,k) instance IMonad Thrist where ireturn a = a :- Nil Then 'ireturn' complains (correctly) that it can't match the k with the kind (i,i). The reason it can't is because when you look at the resulting signature for the MPTC it generates it looks like class IMonad k m where ireturn :: a x -> m a x However, there doesn't appear to be a way to say that the kind k should be determined by m. I tried doing: class IMonad (m :: (k -> *) -> k -> *) | m -> k where ireturn :: a x -> m a x Surprisingly (to me) this compiles and generates the correct constraints for IMonad: ghci> :set -XPolyKinds -XKindSignatures -XFunctionalDependencies -XDataKinds -XGADTs ghci> class IMonad (m :: (k -> *) -> k -> *) | m -> k where ireturn :: a x -> m a x ghci> :info IMonad class IMonad k m | m -> k where ireturn :: a x -> m a x But when I add ghci> :{ Prelude| data Thrist :: ((i,i) -> *) -> (i,i) -> * where Prelude| Nil :: Thrist a '(i,i) Prelude| (:-) :: a '(i,j) -> Thrist a '(j,k) -> Thrist a '(i,k) Prelude| :} and attempt to introduce the instance, I crash: ghci> instance IMonad Thrist where ireturn a = a :- Nil ghc: panic! (the 'impossible' happened) (GHC version 7.6.0.20120810 for x86_64-apple-darwin): lookupVarEnv_NF: Nothing Please report this as a GHC bug: http://www.haskell.org/ghc/reportabug Moreover, attempting to compile them in separate modules leads to a different issue. Within the module, IMonad has a type that includes the kind k and the constraint on it from m. But from the other module, :info shows no such constraint, and the above code again fails to typecheck, but upon trying to recompile, when GHC goes to load the IMonad instance from the core file, it panicks again differently about references to a variable not present in the core. Is there any way to make such a constraint that determines a kind from a type parameter in GHC 7.6 at this time? I tried the Kind hack used in GHC.TypeLits, but it doesn't seem to be applicable to this situation. -Edward

9 37

Re: Re: Does ghc 7.6.1 support gold ld?
by Magicloud Magiclouds 11 Oct '12

11 Oct '12

Well, it does not seem so. Although around 7.0, there were patches to make gold ld work. But until now, the configure script is still missing something. For example, it checks that gold ld is GNU ld. Thus it uses ldscript to input .o files. But in fact, at least the version I am using, gold ld does not take relative paths from ldscript. After a few modifications to the root configure script (not others for libraries). I got it make-able. Now I am stuck at install step. The error is no HsBase.o file.... On Wed, Oct 10, 2012 at 7:04 PM, Achim Krause <info(a)achim-krause.de> wrote: > Well, the build system is intelligent enough to know what to rebuild after > files got changed, and what to keep, but it does not know what files depend > on what configurational changes. This gives you errors, because make still > tries to use the previously built object files. Usually, many changes only > go well with a clean build. > > > Von Samsung Mobile gesendet > > Magicloud Magiclouds <magicloud.magiclouds(a)gmail.com> hat geschrieben: > Never mind. `make clean` helps. Though I have no idea why.... > > On Wed, Oct 10, 2012 at 1:40 PM, Magicloud Magiclouds > <magicloud.magiclouds(a)gmail.com> wrote: >> Hi, >> Since gold ld (GNU gold (GNU Binutils for Debian 2.22) 1.11) somehow >> better than ld, so I am using it in my debian box. >> Now I want to compile ghc 7.6.1 with it. And I have modified the >> configure script to skip checking --hash-size, >> --reduce-memory-overheads and if is gnu ld (all fixed to NO). And >> using normal build ghc 7.6.1. >> I got following errors. What should I do? >> >> 2012/10/10 Wed 13:32:01 magicloud@ctu1-tes-02 ~/src/ghc-7.6.1 >> 4617 $ make >> ===--- building phase 0 >> make -r --no-print-directory -f ghc.mk phase=0 phase_0_builds >> make[1]: Nothing to be done for `phase_0_builds'. >> ===--- building phase 1 >> make -r --no-print-directory -f ghc.mk phase=1 phase_1_builds >> make[1]: Nothing to be done for `phase_1_builds'. >> ===--- building final phase >> make -r --no-print-directory -f ghc.mk phase=final all >> HC [stage 1] libraries/base/dist-install/build/GHC/Exception.o >> ghc-stage1: fd:5: hGetContents: invalid argument (invalid byte sequence) >> HC [stage 1] libraries/base/dist-install/build/GHC/Err.o >> ghc-stage1: fd:5: hGetContents: invalid argument (invalid byte sequence) >> HC [stage 1] libraries/base/dist-install/build/GHC/Char.o >> ghc-stage1: fd:5: hGetContents: invalid argument (invalid byte sequence) >> HC [stage 1] libraries/base/dist-install/build/GHC/Enum.o >> ghc-stage1: fd:5: hGetContents: invalid argument (invalid byte sequence) >> HC [stage 1] libraries/base/dist-install/build/GHC/Real.o >> ghc-stage1: fd:5: hGetContents: invalid argument (invalid byte sequence) >> HC [stage 1] >> libraries/base/dist-install/build/Text/ParserCombinators/ReadP.o >> ghc-stage1: fd:5: hGetContents: invalid argument (invalid byte sequence) >> HC [stage 1] libraries/base/dist-install/build/Text/Read/Lex.o >> ghc-stage1: fd:5: hGetContents: invalid argument (invalid byte sequence) >> HC [stage 1] libraries/base/dist-install/build/GHC/ST.o >> ghc-stage1: fd:5: hGetContents: invalid argument (invalid byte sequence) >> HC [stage 1] libraries/base/dist-install/build/GHC/Arr.o >> ghc-stage1: fd:5: hGetContents: invalid argument (invalid byte sequence) >> HC [stage 1] libraries/base/dist-install/build/Data/Bits.o >> ghc-stage1: fd:5: hGetContents: invalid argument (invalid byte sequence) >> HC [stage 1] libraries/base/dist-install/build/GHC/Float.o >> ghc-stage1: fd:5: hGetContents: invalid argument (invalid byte sequence) >> HC [stage 1] >> libraries/base/dist-install/build/Text/ParserCombinators/ReadPrec.o >> ghc-stage1: fd:5: hGetContents: invalid argument (invalid byte sequence) >> HC [stage 1] libraries/base/dist-install/build/GHC/Read.o >> ghc-stage1: fd:5: hGetContents: invalid argument (invalid byte sequence) >> HC [stage 1] libraries/base/dist-install/build/Numeric.o >> ghc-stage1: fd:5: hGetContents: invalid argument (invalid byte sequence) >> HC [stage 1] libraries/base/dist-install/build/GHC/Ptr.o >> ghc-stage1: fd:5: hGetContents: invalid argument (invalid byte sequence) >> HC [stage 1] libraries/base/dist-install/build/GHC/STRef.o >> ghc-stage1: fd:5: hGetContents: invalid argument (invalid byte sequence) >> make[1]: *** [libraries/base/dist-install/build/GHC/STRef.o] Error 2 >> make[1]: *** Deleting file `libraries/base/dist-install/build/GHC/STRef.o' >> make: *** [all] Error 2 >> -- >> 竹密岂妨流水过 >> 山高哪阻野云飞 >> >> And for G+, please use magiclouds#gmail.com. > > > > -- > 竹密岂妨流水过 > 山高哪阻野云飞 > > And for G+, please use magiclouds#gmail.com. > > _______________________________________________ > Glasgow-haskell-users mailing list > Glasgow-haskell-users(a)haskell.org > http://www.haskell.org/mailman/listinfo/glasgow-haskell-users -- 竹密岂妨流水过山高哪阻野云飞 And for G+, please use magiclouds#gmail.com.

1 1

Does ghc 7.6.1 support gold ld?
by Magicloud Magiclouds 10 Oct '12

10 Oct '12

Hi, Since gold ld (GNU gold (GNU Binutils for Debian 2.22) 1.11) somehow better than ld, so I am using it in my debian box. Now I want to compile ghc 7.6.1 with it. And I have modified the configure script to skip checking --hash-size, --reduce-memory-overheads and if is gnu ld (all fixed to NO). And using normal build ghc 7.6.1. I got following errors. What should I do? 2012/10/10 Wed 13:32:01 magicloud@ctu1-tes-02 ~/src/ghc-7.6.1 4617 $ make ===--- building phase 0 make -r --no-print-directory -f ghc.mk phase=0 phase_0_builds make[1]: Nothing to be done for `phase_0_builds'. ===--- building phase 1 make -r --no-print-directory -f ghc.mk phase=1 phase_1_builds make[1]: Nothing to be done for `phase_1_builds'. ===--- building final phase make -r --no-print-directory -f ghc.mk phase=final all HC [stage 1] libraries/base/dist-install/build/GHC/Exception.o ghc-stage1: fd:5: hGetContents: invalid argument (invalid byte sequence) HC [stage 1] libraries/base/dist-install/build/GHC/Err.o ghc-stage1: fd:5: hGetContents: invalid argument (invalid byte sequence) HC [stage 1] libraries/base/dist-install/build/GHC/Char.o ghc-stage1: fd:5: hGetContents: invalid argument (invalid byte sequence) HC [stage 1] libraries/base/dist-install/build/GHC/Enum.o ghc-stage1: fd:5: hGetContents: invalid argument (invalid byte sequence) HC [stage 1] libraries/base/dist-install/build/GHC/Real.o ghc-stage1: fd:5: hGetContents: invalid argument (invalid byte sequence) HC [stage 1] libraries/base/dist-install/build/Text/ParserCombinators/ReadP.o ghc-stage1: fd:5: hGetContents: invalid argument (invalid byte sequence) HC [stage 1] libraries/base/dist-install/build/Text/Read/Lex.o ghc-stage1: fd:5: hGetContents: invalid argument (invalid byte sequence) HC [stage 1] libraries/base/dist-install/build/GHC/ST.o ghc-stage1: fd:5: hGetContents: invalid argument (invalid byte sequence) HC [stage 1] libraries/base/dist-install/build/GHC/Arr.o ghc-stage1: fd:5: hGetContents: invalid argument (invalid byte sequence) HC [stage 1] libraries/base/dist-install/build/Data/Bits.o ghc-stage1: fd:5: hGetContents: invalid argument (invalid byte sequence) HC [stage 1] libraries/base/dist-install/build/GHC/Float.o ghc-stage1: fd:5: hGetContents: invalid argument (invalid byte sequence) HC [stage 1] libraries/base/dist-install/build/Text/ParserCombinators/ReadPrec.o ghc-stage1: fd:5: hGetContents: invalid argument (invalid byte sequence) HC [stage 1] libraries/base/dist-install/build/GHC/Read.o ghc-stage1: fd:5: hGetContents: invalid argument (invalid byte sequence) HC [stage 1] libraries/base/dist-install/build/Numeric.o ghc-stage1: fd:5: hGetContents: invalid argument (invalid byte sequence) HC [stage 1] libraries/base/dist-install/build/GHC/Ptr.o ghc-stage1: fd:5: hGetContents: invalid argument (invalid byte sequence) HC [stage 1] libraries/base/dist-install/build/GHC/STRef.o ghc-stage1: fd:5: hGetContents: invalid argument (invalid byte sequence) make[1]: *** [libraries/base/dist-install/build/GHC/STRef.o] Error 2 make[1]: *** Deleting file `libraries/base/dist-install/build/GHC/STRef.o' make: *** [all] Error 2 -- 竹密岂妨流水过山高哪阻野云飞 And for G+, please use magiclouds#gmail.com.

1 1

what are good starter tasks for getting involved with ghc dev?
by Carter Tazio Schonwald 10 Oct '12

10 Oct '12

Hey All, I'm interested in getting involved in (/ helping out ) with dev work on GHC, what are good ways to get started on tackling smaller bits in the near term? (better to do simple things before more ambitious things after all!) should i just go through the issue tracker for tasks or bugs that are un assigned that I think i can do, and see if I can do them? thanks!-Carter

1 0

copyArray# bug
by Roman Leshchinskiy 09 Oct '12

09 Oct '12

I've been chasing a segfault in the dev version of vector and I think I finally traced it to a bug in the implementation of copyArray# and copyMutableArray#. More specifically, I think emitSetCards in StgCmmPrim.hs (and CgPrimOp.hs) will sometimes fail to mark the last card as dirty because in the current implementation, the number of cards to mark is computed solely from the number of copied elements while it really depends on which cards the first and the last elements belong to. That is, the number of elements to copy might be less than the number of elements per card but the copied range might still span two cards. The attached patch fixes this (and the segfault in vector) and also makes copyArray# return immediately if the number of elements to copy is 0. Could someone who is familiar with the code please review it and tell me if it looks sensible. If it does, I'll make the same modification to CgPrimOp.hs (which has exactly the same code) and commit. Unfortunately, I have no idea how to write a testcase for this since the bug is only triggered in very specific circumstances. It seems that all released versions of GHC that implement copyArray#/copyMutableArray# have this problem. At least, vector's testsuite now segfaults with all of them in roughly the same place after recent modifications I've made (which involve calling copyArray# a lot). If I'm right then I would suggest not to use copyArray# and copyMutableArray# for GHC < 7.8. Roman

4 8

Recompiling a module fails
by Jeroen Weijers 09 Oct '12

09 Oct '12

I'm currently having a problem with compiling modules. I have two files Data.hs and Class.hs (Class depends on Data). When I compile Class.hs (ghc --make Class.hs) the ghc does what it should do. When I now make a change to Class.hs (add a newline to the end of the file for example) and try to run ghc --make Class.hs again the ghc gets stuck on recompiling Class.hs. I think this is a bug in the GHC, can anybody confirm this? (it only occurs in GHC-7.6.1 both x86 and i386 versions, GHC-7.4 doesn't have this problem, I only tried it on OS X). Or did I miss something else? It doesn't happen when the Exp data type in Data.hs only has one constructor. Contents of the two module involved: Class.hs >{-# LANGUAGE GADTs, TypeFamilies #-} >module Class where > >import Data > >data Q a where > Q :: QA a => Exp (F a) -> Q a > >class QA a where > type F a Data.hs >{-# LANGUAGE GADTs #-} >module Data where > >data Exp a where > LamE :: (Exp a -> Exp b) -> Exp (Exp a -> Exp b) > VarE :: Integer -> Exp a Cheers, Jeroen

1 0

Installing binary tarball fails on Linux
by Johan Tibell 09 Oct '12

09 Oct '12

Hi, I tried to install the GHC 7.4.1 32-bit binary tarball today and ran into the error below. Are 32-bit GHC's not supported on 64-bit Linuxes? The error: Installing library in /usr/local/lib/ghc-7.4.1/ghc-prim-0.2.0.0 ghc-cabal: Bad interface file: dist-install/build/GHC/Classes.hi magic number mismatch: old/corrupt interface file? (wanted 33214052, got 129742) Full log: $ tar jxf ghc-7.4.1-i386-unknown-linux.tar.bz2 $ cd ghc-7.4.1/ tibell@tibell:ghc-7.4.1$ ./configure --prefix=/usr/local checking for path to top of build tree... /tmp/ghc-7.4.1 Build platform inferred as: i386-unknown-linux Host platform inferred as: i386-unknown-linux Target platform inferred as: i386-unknown-linux GHC build : i386-unknown-linux GHC host : i386-unknown-linux GHC target : i386-unknown-linux checking for perl... /usr/bin/perl checking if your perl works in shell scripts... yes checking for a BSD-compatible install... /usr/bin/install -c checking whether ln -s works... yes checking for gsed... sed checking for gcc... /usr/bin/gcc checking for gcc... /usr/bin/gcc checking whether the C compiler works... yes checking for C compiler default output file name... a.out checking for suffix of executables... checking whether we are cross compiling... no checking for suffix of object files... o checking whether we are using the GNU C compiler... yes checking whether /usr/bin/gcc accepts -g... yes checking for /usr/bin/gcc option to accept ISO C89... none needed checking version of gcc... 4.4.3 checking how to run the C preprocessor... /usr/bin/gcc -E checking whether ld understands --hash-size=31... checking whether ld understands --reduce-memory-overheads... checking for extra options to pass gcc when compiling via C... -fwrapv checking Setting up CFLAGS, LDFLAGS, IGNORE_LINKER_LD_FLAGS and CPPFLAGS... done checking Setting up CONF_CC_OPTS_STAGE0, CONF_GCC_LINKER_OPTS_STAGE0, CONF_LD_LINKER_OPTS_STAGE0 and CONF_CPP_OPTS_STAGE0... done checking Setting up CONF_CC_OPTS_STAGE1, CONF_GCC_LINKER_OPTS_STAGE1, CONF_LD_LINKER_OPTS_STAGE1 and CONF_CPP_OPTS_STAGE1... done checking Setting up CONF_CC_OPTS_STAGE2, CONF_GCC_LINKER_OPTS_STAGE2, CONF_LD_LINKER_OPTS_STAGE2 and CONF_CPP_OPTS_STAGE2... done checking for .subsections_via_symbols... no checking for GNU non-executable stack support... yes checking for grep that handles long lines and -e... /bin/grep checking for egrep... /bin/grep -E checking for ANSI C header files... yes checking for sys/types.h... yes checking for sys/stat.h... yes checking for stdlib.h... yes checking for string.h... yes checking for memory.h... yes checking for strings.h... yes checking for inttypes.h... yes checking for stdint.h... yes checking for unistd.h... yes checking size of void *... 8 checking for ar... /usr/bin/ar checking whether /usr/bin/ar is GNU ar... yes checking for ar arguments... q checking whether ranlib is needed... no configure: creating ./config.status config.status: creating settings config.status: creating mk/config.mk config.status: creating mk/install.mk **************************************************** Configuration done, ready to 'make install' (see README and INSTALL files for more info.) **************************************************** $ sudo make install make -r --no-print-directory -f ghc.mk install BINDIST=YES NO_INCLUDE_DEPS=YES /usr/bin/install -c -m 755 -d "/usr/local/share/man" /usr/bin/install -c -m 755 -d "/usr/local/share/man/man1" /usr/bin/install -c -m 644 docs/man/ghc.1 "/usr/local/share/man/man1" "rm" -f driver/split/dist/ghc-split echo '#!/usr/bin/perl' >> driver/split/dist/ghc-split echo '$TARGETPLATFORM = "i386-unknown-linux";' >> driver/split/dist/ghc-split echo '$TABLES_NEXT_TO_CODE = "YES";' >> driver/split/dist/ghc-split cat driver/split/dist/ghc-split.prl >> driver/split/dist/ghc-split /usr/bin/install -c -m 755 -d "/usr/local/lib/ghc-7.4.1" /usr/bin/install -c -m 755 driver/split/dist/ghc-split "/usr/local/lib/ghc-7.4.1" /usr/bin/install -c -m 755 -d "/usr/local/bin" "rm" -f "/usr/local/bin/ghci-7.4.1" create () { touch "$1" && chmod 755 "$1" ; } && create "/usr/local/bin/ghci-7.4.1" echo '#!/bin/sh' >> "/usr/local/bin/ghci-7.4.1" echo 'exec "/usr/local/bin/ghc-7.4.1" --interactive ${1+"$@"}' >> "/usr/local/bin/ghci-7.4.1" chmod +x "/usr/local/bin/ghci-7.4.1" "rm" -f "/usr/local/bin/ghci" ln -s ghci-7.4.1 "/usr/local/bin/ghci" /usr/bin/install -c -m 755 -d "/usr/local/lib/ghc-7.4.1/include" /usr/bin/install -c -m 755 -d "/usr/local/lib/ghc-7.4.1/include/." && /usr/bin/install -c -m 644 includes/./*.h "/usr/local/lib/ghc-7.4.1/include/./" && /usr/bin/install -c -m 755 -d "/usr/local/lib/ghc-7.4.1/include/rts" && /usr/bin/install -c -m 644 includes/rts/*.h "/usr/local/lib/ghc-7.4.1/include/rts/" && /usr/bin/install -c -m 755 -d "/usr/local/lib/ghc-7.4.1/include/rts/prof" && /usr/bin/install -c -m 644 includes/rts/prof/*.h "/usr/local/lib/ghc-7.4.1/include/rts/prof/" && /usr/bin/install -c -m 755 -d "/usr/local/lib/ghc-7.4.1/include/rts/storage" && /usr/bin/install -c -m 644 includes/rts/storage/*.h "/usr/local/lib/ghc-7.4.1/include/rts/storage/" && /usr/bin/install -c -m 755 -d "/usr/local/lib/ghc-7.4.1/include/stg" && /usr/bin/install -c -m 644 includes/stg/*.h "/usr/local/lib/ghc-7.4.1/include/stg/" && true /usr/bin/install -c -m 644 includes/ghcautoconf.h includes/ghcplatform.h includes/dist-ghcconstants/header/GHCConstants.h includes/dist-derivedconstants/header/DerivedConstants.h "/usr/local/lib/ghc-7.4.1/include/" /usr/bin/install -c -m 755 -d "/usr/local/lib/ghc-7.4.1/include" /usr/bin/install -c -m 644 rts/dist/build/ffi.h rts/dist/build/ffitarget.h "/usr/local/lib/ghc-7.4.1/include/" /usr/bin/install -c -m 755 -d "/usr/local/bin" "rm" -f "/usr/local/bin/haddock-ghc-7.4.1" create () { touch "$1" && chmod 755 "$1" ; } && create "/usr/local/bin/haddock-ghc-7.4.1" echo '#!/bin/sh' >> "/usr/local/bin/haddock-ghc-7.4.1" echo 'exedir="/usr/local/lib/ghc-7.4.1"' >> "/usr/local/bin/haddock-ghc-7.4.1" echo 'exeprog="haddock"' >> "/usr/local/bin/haddock-ghc-7.4.1" echo 'executablename="$exedir/$exeprog"' >> "/usr/local/bin/haddock-ghc-7.4.1" echo 'datadir="/usr/local/share"' >> "/usr/local/bin/haddock-ghc-7.4.1" echo 'bindir="/usr/local/bin"' >> "/usr/local/bin/haddock-ghc-7.4.1" echo 'topdir="/usr/local/lib/ghc-7.4.1"' >> "/usr/local/bin/haddock-ghc-7.4.1" cat utils/haddock/haddock.wrapper >> "/usr/local/bin/haddock-ghc-7.4.1" chmod +x "/usr/local/bin/haddock-ghc-7.4.1" /usr/bin/install -c -m 755 -d "/usr/local/lib/ghc-7.4.1/html/" /usr/bin/install -c -m 755 -d "/usr/local/lib/ghc-7.4.1/html/Classic.theme/" /usr/bin/install -c -m 755 -d "/usr/local/lib/ghc-7.4.1/html/Ocean.std-theme/" /usr/bin/install -c -m 755 -d "/usr/local/lib/ghc-7.4.1/latex/" /usr/bin/install -c -m 644 utils/haddock/html/frames.html "/usr/local/lib/ghc-7.4.1/html/" /usr/bin/install -c -m 644 utils/haddock/html/haddock-util.js "/usr/local/lib/ghc-7.4.1/html/" /usr/bin/install -c -m 644 utils/haddock/html/Classic.theme/haskell_icon.gif "/usr/local/lib/ghc-7.4.1/html/Classic.theme/" /usr/bin/install -c -m 644 utils/haddock/html/Classic.theme/minus.gif "/usr/local/lib/ghc-7.4.1/html/Classic.theme/" /usr/bin/install -c -m 644 utils/haddock/html/Classic.theme/plus.gif "/usr/local/lib/ghc-7.4.1/html/Classic.theme/" /usr/bin/install -c -m 644 utils/haddock/html/Classic.theme/xhaddock.css "/usr/local/lib/ghc-7.4.1/html/Classic.theme/" /usr/bin/install -c -m 644 utils/haddock/html/Ocean.std-theme/hslogo-16.png "/usr/local/lib/ghc-7.4.1/html/Ocean.std-theme/" /usr/bin/install -c -m 644 utils/haddock/html/Ocean.std-theme/minus.gif "/usr/local/lib/ghc-7.4.1/html/Ocean.std-theme/" /usr/bin/install -c -m 644 utils/haddock/html/Ocean.std-theme/ocean.css "/usr/local/lib/ghc-7.4.1/html/Ocean.std-theme/" /usr/bin/install -c -m 644 utils/haddock/html/Ocean.std-theme/plus.gif "/usr/local/lib/ghc-7.4.1/html/Ocean.std-theme/" /usr/bin/install -c -m 644 utils/haddock/html/Ocean.std-theme/synopsis.png "/usr/local/lib/ghc-7.4.1/html/Ocean.std-theme/" /usr/bin/install -c -m 644 utils/haddock/latex/haddock.sty "/usr/local/lib/ghc-7.4.1/latex/" "rm" -f "/usr/local/bin/haddock" ln -s haddock-ghc-7.4.1 "/usr/local/bin/haddock" /usr/bin/install -c -m 755 -d "/usr/local/bin" "rm" -f "/usr/local/bin/hsc2hs" create () { touch "$1" && chmod 755 "$1" ; } && create "/usr/local/bin/hsc2hs" echo '#!/bin/sh' >> "/usr/local/bin/hsc2hs" echo 'exedir="/usr/local/lib/ghc-7.4.1"' >> "/usr/local/bin/hsc2hs" echo 'exeprog="hsc2hs"' >> "/usr/local/bin/hsc2hs" echo 'executablename="$exedir/$exeprog"' >> "/usr/local/bin/hsc2hs" echo 'datadir="/usr/local/share"' >> "/usr/local/bin/hsc2hs" echo 'bindir="/usr/local/bin"' >> "/usr/local/bin/hsc2hs" echo 'topdir="/usr/local/lib/ghc-7.4.1"' >> "/usr/local/bin/hsc2hs" echo 'HSC2HS_EXTRA="--cflag=-fno-stack-protector "' >> "/usr/local/bin/hsc2hs" cat utils/hsc2hs/hsc2hs.wrapper >> "/usr/local/bin/hsc2hs" chmod +x "/usr/local/bin/hsc2hs" /usr/bin/install -c -m 644 utils/hsc2hs/template-hsc.h "/usr/local/lib/ghc-7.4.1" /usr/bin/install -c -m 755 -d "/usr/local/bin" "rm" -f "/usr/local/bin/ghc-pkg-7.4.1" create () { touch "$1" && chmod 755 "$1" ; } && create "/usr/local/bin/ghc-pkg-7.4.1" echo '#!/bin/sh' >> "/usr/local/bin/ghc-pkg-7.4.1" echo 'exedir="/usr/local/lib/ghc-7.4.1"' >> "/usr/local/bin/ghc-pkg-7.4.1" echo 'exeprog="ghc-pkg"' >> "/usr/local/bin/ghc-pkg-7.4.1" echo 'executablename="$exedir/$exeprog"' >> "/usr/local/bin/ghc-pkg-7.4.1" echo 'datadir="/usr/local/share"' >> "/usr/local/bin/ghc-pkg-7.4.1" echo 'bindir="/usr/local/bin"' >> "/usr/local/bin/ghc-pkg-7.4.1" echo 'topdir="/usr/local/lib/ghc-7.4.1"' >> "/usr/local/bin/ghc-pkg-7.4.1" cat utils/ghc-pkg/ghc-pkg.wrapper >> "/usr/local/bin/ghc-pkg-7.4.1" chmod +x "/usr/local/bin/ghc-pkg-7.4.1" /usr/bin/install -c -m 755 -d "/usr/local/bin" "rm" -f "/usr/local/bin/ghc-pkg" ln -s ghc-pkg-7.4.1 "/usr/local/bin/ghc-pkg" /usr/bin/install -c -m 755 -d "/usr/local/bin" "rm" -f "/usr/local/bin/runghc" create () { touch "$1" && chmod 755 "$1" ; } && create "/usr/local/bin/runghc" echo '#!/bin/sh' >> "/usr/local/bin/runghc" echo 'exedir="/usr/local/lib/ghc-7.4.1"' >> "/usr/local/bin/runghc" echo 'exeprog="runghc"' >> "/usr/local/bin/runghc" echo 'executablename="$exedir/$exeprog"' >> "/usr/local/bin/runghc" echo 'datadir="/usr/local/share"' >> "/usr/local/bin/runghc" echo 'bindir="/usr/local/bin"' >> "/usr/local/bin/runghc" echo 'topdir="/usr/local/lib/ghc-7.4.1"' >> "/usr/local/bin/runghc" cat utils/runghc/runghc.wrapper >> "/usr/local/bin/runghc" chmod +x "/usr/local/bin/runghc" "rm" -f "/usr/local/bin/runhaskell" ln -s runghc "/usr/local/bin/runhaskell" /usr/bin/install -c -m 755 -d "/usr/local/bin" "rm" -f "/usr/local/bin/ghc-7.4.1" create () { touch "$1" && chmod 755 "$1" ; } && create "/usr/local/bin/ghc-7.4.1" echo '#!/bin/sh' >> "/usr/local/bin/ghc-7.4.1" echo 'exedir="/usr/local/lib/ghc-7.4.1"' >> "/usr/local/bin/ghc-7.4.1" echo 'exeprog="ghc-stage2"' >> "/usr/local/bin/ghc-7.4.1" echo 'executablename="$exedir/$exeprog"' >> "/usr/local/bin/ghc-7.4.1" echo 'datadir="/usr/local/share"' >> "/usr/local/bin/ghc-7.4.1" echo 'bindir="/usr/local/bin"' >> "/usr/local/bin/ghc-7.4.1" echo 'topdir="/usr/local/lib/ghc-7.4.1"' >> "/usr/local/bin/ghc-7.4.1" echo 'executablename="$exedir/ghc"' >> "/usr/local/bin/ghc-7.4.1" cat ghc/ghc.wrapper >> "/usr/local/bin/ghc-7.4.1" chmod +x "/usr/local/bin/ghc-7.4.1" "rm" -f "/usr/local/bin/ghc" ln -s ghc-7.4.1 "/usr/local/bin/ghc" /usr/bin/install -c -m 755 -d "/usr/local/lib/ghc-7.4.1" for i in driver/ghc-usage.txt driver/ghci-usage.txt rts/dist/build/libHSrts.a rts/dist/build/libHSrts_p.a rts/dist/build/libHSrts-ghc7.4.1.so rts/dist/build/libHSrts_l.a rts/dist/build/libHSrts_debug.a rts/dist/build/libHSrts_thr.a rts/dist/build/libHSrts_thr_debug.a rts/dist/build/libHSrts_thr_l.a rts/dist/build/libHSrts_thr_p.a rts/dist/build/libHSrts_debug-ghc7.4.1.so rts/dist/build/libHSrts_thr-ghc7.4.1.so rts/dist/build/libHSrts_thr_debug-ghc7.4.1.so rts/dist/build/libffi.so rts/dist/build/libffi.so.5 rts/dist/build/libffi.so.5.0.10 settings; do \ case $i in \ *.a) \ /usr/bin/install -c -m 644 $i "/usr/local/lib/ghc-7.4.1"; \ true /usr/local/lib/ghc-7.4.1/`basename $i` ;; \ *.dll) \ /usr/bin/install -c -m 644 -s $i "/usr/local/lib/ghc-7.4.1" ;; \ *.so) \ /usr/bin/install -c -m 755 $i "/usr/local/lib/ghc-7.4.1" ;; \ *.dylib) \ /usr/bin/install -c -m 755 $i "/usr/local/lib/ghc-7.4.1";; \ *) \ /usr/bin/install -c -m 644 $i "/usr/local/lib/ghc-7.4.1"; \ esac; \ done /usr/bin/gcc -E -undef -traditional -P -DINSTALLING -DLIB_DIR='"/usr/local/lib/ghc-7.4.1"' -DINCLUDE_DIR='"/usr/local/lib/ghc-7.4.1/include"' -DPAPI_INCLUDE_DIR="" -DPAPI_LIB_DIR="" -x c -Iincludes rts/package.conf.in -o rts/package.conf.install.raw grep -v '^#pragma GCC' rts/package.conf.install.raw | sed -e 's/""//g' -e 's/:[ ]*,/: /g' >rts/package.conf.install /usr/bin/install -c -m 755 -d "/usr/local/lib/ghc-7.4.1" for i in utils/haddock/dist/build/tmp/haddock utils/hsc2hs/dist-install/build/tmp/hsc2hs utils/ghc-pkg/dist-install/build/tmp/ghc-pkg utils/runghc/dist-install/build/tmp/runghc ghc/stage2/build/tmp/ghc-stage2; do \ /usr/bin/install -c -m 755 $i "/usr/local/lib/ghc-7.4.1"; \ done "mv" "/usr/local/lib/ghc-7.4.1/ghc-stage2" "/usr/local/lib/ghc-7.4.1/ghc" /usr/bin/install -c -m 755 -d "/usr/local/lib/ghc-7.4.1" "rm" -rf "/usr/local/lib/ghc-7.4.1/package.conf.d" /usr/bin/install -c -m 755 -d "/usr/local/lib/ghc-7.4.1/package.conf.d" "/usr/local/lib/ghc-7.4.1/ghc-pkg" --force --global-conf "/usr/local/lib/ghc-7.4.1/package.conf.d" update rts/package.conf.install Reading package info from "rts/package.conf.install" ... done. "utils/ghc-cabal/dist-install/build/tmp/ghc-cabal" install "/usr/local/lib/ghc-7.4.1/ghc" "/usr/local/lib/ghc-7.4.1/ghc-pkg" "strip" "/usr/local/lib/ghc-7.4.1" libraries/ghc-prim dist-install '' '/usr/local' '/usr/local/lib/ghc-7.4.1' '/usr/local/share/doc/ghc/html/libraries' NO Installing library in /usr/local/lib/ghc-7.4.1/ghc-prim-0.2.0.0 ghc-cabal: Bad interface file: dist-install/build/GHC/Classes.hi magic number mismatch: old/corrupt interface file? (wanted 33214052, got 129742) make[1]: *** [install_packages] Error 1 make: *** [install] Error 2 -- Johan

5 8