#1553: Error in "nameModule header{v a1Ax}"
-+--
Reporter: [EMAIL PROTECTED] |Owner:
Type: bug | Status: new
Priority: normal|Milestone:
Component: GHCi | Version: 6.6.1
Severity: normal| Resolution:
Keywords:| Difficulty: Unknown
Os: Linux | Testcase:
Architecture: x86 |
-+--
Old description:
> '''1. Linux version:''' 2.4.27
> '''2. GCC version:''' 3.3.5 (Debian 1:3.3.5-13)
> '''3-4. Sequence of events:'''
> [EMAIL PROTECTED]:~/lab/NetGremlins/newSiteManager$ ghci -v eventsCons.hs
>___ ___ _
> / _ \ /\ /\/ __(_)
> / /_\// /_/ / / | | GHC Interactive, version 6.6.1, for Haskell
> 98.
> / /_\\/ __ / /___| | http://www.haskell.org/ghc/
> \/\/ /_/\/|_| Type :? for help.
>
> Using package config file: /usr/local/lib/ghc-6.6.1/package.conf
> wired-in package base mapped to base-2.1.1
> wired-in package rts mapped to rts-1.0
> wired-in package haskell98 mapped to haskell98-1.0
> wired-in package template-haskell mapped to template-haskell-2.1
> Hsc static flags: -static
> Loading package base ... linking ... done.
> wired-in package base mapped to base-2.1.1
> wired-in package rts mapped to rts-1.0
> wired-in package haskell98 mapped to haskell98-1.0
> wired-in package template-haskell mapped to template-haskell-2.1
> *** Parser:
> *** Desugar:
> *** Simplify:
> *** CorePrep:
> *** ByteCodeGen:
> *** Parser:
> *** Desugar:
> *** Simplify:
> *** CorePrep:
> *** ByteCodeGen:
> wired-in package base mapped to base-2.1.1
> wired-in package rts mapped to rts-1.0
> wired-in package haskell98 mapped to haskell98-1.0
> wired-in package template-haskell mapped to template-haskell-2.1
> *** Chasing dependencies:
> Stable obj: []
> Stable BCO: []
> unload: retaining objs []
> unload: retaining bcos []
> Upsweep completely successful.
> *** Deleting temp files:
> Deleting:
> *** Chasing dependencies:
> Stable obj: []
> Stable BCO: []
> unload: retaining objs []
> unload: retaining bcos []
> compile: input file eventsCons.hs
> *** Checking old interface for main:EventsCons:
> [1 of 1] Compiling EventsCons ( eventsCons.hs, interpreted )
> *** Parser:
> *** Renamer/typechecker:
> *** Desugar:
> Result size = 487
> *** Simplify:
> Result size = 2468
> Result size = 1293
> Result size = 1291
> Result size = 1291
> *** Tidy Core:
> Result size = 1291
> *** CorePrep:
> Result size = 1475
> *** ByteCodeGen:
> *** Deleting temp files:
> Deleting:
> Upsweep completely successful.
> *** Deleting temp files:
> Deleting:
> Ok, modules loaded: EventsCons.
> *EventsCons> main
> *** Parser:
> *** Desugar:
> *** Simplify:
> *** CorePrep:
> *** ByteCodeGen:
> Loading package haskell98 ... linking ... done.
> Loading package parsec-2.0 ... linking ... done.
> Loading package network-2.0.1 ... linking ... done.
> Loading package HTTP-3000.0.0 ... linking ... done.
> Loading package HUnit-1.1.1 ... linking ... done.
> Loading package hxt-7.2 ... linking ... done.
> ghc-6.6.1: panic! (the 'impossible' happened)
> (GHC version 6.6.1 for i386-unknown-linux):
> nameModule header{v a1Ax}
>
> Please report this as a GHC bug: http://www.haskell.org/ghc/reportabug
>
> *EventsCons>
>
> '''5. As can be seen in the listing it gives the error:'''
> ghc-6.6.1: panic! (the 'impossible' happened)
> (GHC version 6.6.1 for i386-unknown-linux):
> nameModule header{v a1Ax}
>
> '''6. Source code:'''
> 1 module EventsCons where
> 2 import Text.XML.HXT.Arrow
> 3 import Data.Tree.NTree.TypeDefs (NTree (..))
> 4 import System.Time
> 5 import List
> 6
> 7 myMonths = [January .. December]
> 8 monthRefs = zip [January .. December]
> 9 ["#jan", "#feb", "#mar", "#apr", "#may", "#jun",
> 10 "#jul", "#aug", "#sep", "#oct", "#nov", "#dec"]
> 11
> 12
> 13 main =
> 14 runX ( readDocument [(a_validate, v_0)] "events.xml" >>>
> 15 processEvents myMonths >>>
> 16 writeDocument [(a_indent, v_1)] "events.html" )
> 17
> 18
> 19 processEvents months =
> 20 processTopDown (monthListX months)
> 21
> 22
> 23 monthListX months =
> 24 mkelem "div" [sattr "class" "monthlist"]
> 25 ([header] ++
> 26 (listMonths $ take 6 months) ++
> 27 [breakTag] ++
> 28 (listMonths $ drop 6 months) ++
> 29 [breakTag, archive, breakTag])
> 30 `when`
> 31 (isElem >>> hasName "monthList")
> 32 where
> 33 header = selem "h2" [[txt "Event Galleries"]]
> 34 breakTag = selem "br" []
> 35 archive = mkelem "a" [sattr "class" "month", sattr "href"
> "archive.html"]
> 36
