On Wed, Sep 19, 2012 at 07:28:23AM +0000, Simon Peyton-Jones wrote:
> |  > Somehow compiling DynFlags.lhs has started taking a very long time, and
> |  generates lots of code. I have not had time to investigate, but if anyone 
> has any
> |  idea what is happening I'd be happy to know.
> |  
> |  I've added some more stuff to it recently. In particular, a large type:
> |      includes/dist-derivedconstants/header/GHCConstantsHaskellType.hs

It's mostly the Read instance, but partly the Show instance, of the
type. I've attached a simple example with just a Read instance;
compiling with
    ghc -O -c W2.hs
takes a while.


-- 
Ian Lynagh, Haskell Consultant
Well-Typed LLP, http://www.well-typed.com/
module W2 (DT(..)) where

data DT = DT {
                field1 :: Int
              , field2 :: Int
              , field3 :: Int
              , field4 :: Int
              , field5 :: Int
              , field6 :: Int
              , field7 :: Int
              , field8 :: Int
              , field9 :: Int
              , field10 :: Int
              , field11 :: Int
              , field12 :: Int
              , field13 :: Int
              , field14 :: Int
              , field15 :: Int
              , field16 :: Int
              , field17 :: Int
              , field18 :: Int
              , field19 :: Int
              , field20 :: Int
              , field21 :: Int
              , field22 :: Int
              , field23 :: Int
              , field24 :: Int
              , field25 :: Int
              , field26 :: Int
              , field27 :: Int
              , field28 :: Int
              , field29 :: Int
              , field30 :: Int
              , field31 :: Int
              , field32 :: Int
              , field33 :: Int
              , field34 :: Int
              , field35 :: Int
              , field36 :: Int
              , field37 :: Int
              , field38 :: Int
              , field39 :: Int
              , field40 :: Int
              , field41 :: Int
              , field42 :: Int
              , field43 :: Int
              , field44 :: Int
              , field45 :: Int
              , field46 :: Int
              , field47 :: Int
              , field48 :: Int
              , field49 :: Int
              , field50 :: Int
              , field51 :: Int
              , field52 :: Int
              , field53 :: Int
              , field54 :: Int
              , field55 :: Int
              , field56 :: Int
              , field57 :: Int
              , field58 :: Int
              , field59 :: Int
              , field60 :: Int
              , field61 :: Int
              , field62 :: Int
              , field63 :: Int
              , field64 :: Int
              , field65 :: Int
              , field66 :: Int
              , field67 :: Int
              , field68 :: Int
              , field69 :: Int
              , field70 :: Int
              , field71 :: Int
              , field72 :: Int
              , field73 :: Int
              , field74 :: Int
              , field75 :: Int
              , field76 :: Int
              , field77 :: Int
              , field78 :: Int
              , field79 :: Int
              , field80 :: Int
              , field81 :: Int
              , field82 :: Int
              , field83 :: Int
              , field84 :: Int
              , field85 :: Int
              , field86 :: Int
              , field87 :: Int
              , field88 :: Int
              , field89 :: Int
              , field90 :: Int
              , field91 :: Int
              , field92 :: Int
              , field93 :: Int
              , field94 :: Int
              , field95 :: Int
              , field96 :: Int
              , field97 :: Int
              , field98 :: Int
              , field99 :: Int
              , field100 :: Int
              , field101 :: Int
              , field102 :: Int
              , field103 :: Int
              , field104 :: Int
              , field105 :: Int
              , field106 :: Int
              , field107 :: Int
              , field108 :: Int
              , field109 :: Int
              , field110 :: Int
              , field111 :: Int
              , field112 :: Int
              , field113 :: Int
              , field114 :: Int
              , field115 :: Int
              , field116 :: Int
              , field117 :: Int
              , field118 :: Int
              , field119 :: Int
              , field120 :: Int
              , field121 :: Int
              , field122 :: Int
              , field123 :: Int
              , field124 :: Int
              , field125 :: Int
              , field126 :: Int
              , field127 :: Int
              , field128 :: Int
              , field129 :: Int
              , field130 :: Int
              , field131 :: Int
              , field132 :: Int
              , field133 :: Int
              , field134 :: Int
              , field135 :: Int
              , field136 :: Int
              , field137 :: Int
              , field138 :: Int
              , field139 :: Int
              , field140 :: Int
              , field141 :: Int
              , field142 :: Int
              , field143 :: Int
              , field144 :: Int
              , field145 :: Int
              , field146 :: Int
              , field147 :: Int
              , field148 :: Int
              , field149 :: Int
              , field150 :: Int
              , field151 :: Int
              , field152 :: Int
              , field153 :: Int
              , field154 :: Int
              , field155 :: Int
              , field156 :: Int
              , field157 :: Int
              , field158 :: Int
              , field159 :: Int
              , field160 :: Int
              , field161 :: Int
              , field162 :: Int
              , field163 :: Int
              , field164 :: Int
              , field165 :: Int
              , field166 :: Int
              , field167 :: Int
              , field168 :: Int
              , field169 :: Int
              , field170 :: Int
              , field171 :: Int
              , field172 :: Int
              , field173 :: Int
              , field174 :: Int
              , field175 :: Int
              , field176 :: Int
              , field177 :: Int
              , field178 :: Int
              , field179 :: Int
              , field180 :: Int
              , field181 :: Int
              , field182 :: Int
              , field183 :: Int
              , field184 :: Int
              , field185 :: Int
              , field186 :: Int
              , field187 :: Int
              , field188 :: Int
              , field189 :: Int
              , field190 :: Int
              , field191 :: Int
              , field192 :: Int
              , field193 :: Int
              , field194 :: Int
              , field195 :: Int
              , field196 :: Int
              , field197 :: Int
              , field198 :: Int
              , field199 :: Int
              , field200 :: Int
    } deriving (Read)

_______________________________________________
Cvs-ghc mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/cvs-ghc

Reply via email to