GHC said this caused a panic

ghc.exe: panic! (the `impossible' happened, GHC version 6.2):
        Failed binder lookup: Tth.val {- v r1bz -}

-------
{-# OPTIONS -fglasgow-exts #-}
module Tth where

import Language.Haskell.THSyntax
import Language.Haskell.Syntax

--fooFunc =  [d|funD "foo" [clause [] (normalB $ litE $ StringL "bar") [] ]|]

fooFunc x= [d|hoo=x|]

-- class Foo a where val::Int

class Foo a where val::Int

--fooClass = [d|                        |]

fooInst c v = [d|instance Foo Int where val=v|]
goo = [|2|]
--------------
{-# OPTIONS -fglasgow-exts #-}
import Tth
foo = $(goo)
$(fooFunc "x")




______________________________________________________________
S. Alexander Jacobson tel:917-770-6565 http://alexjacobson.com