Template Haskell doesn't parse data decls properly
Hi, Template Haskell is rejecting data decls just because of the particular identifier I'm choosing to use. The code is:
module Box where
data T = T Int
{-# OPTIONS_GHC -fglasgow-exts -fth #-}
module Main where
import qualified Box as Box
$( [d| data T = T Box.T |] )
main = return ()
And the error message is:
main.hs:6:18: Not in scope: type constructor or class `Box.T'
If I change the decl in the splice to:
$( [d| data Hello = T Box.T |] )
the code compiles with no problems! (???) I thought I could workaround the issue by adding
type T = Hello
but although this workaround works in the simple example above, in my actual program I get a ghc panic
error that I don't know how to reproduce in a simple example.
The problem seems to be that I'm using the name T
for both types, but I'd prefer to do this as it's consistent with the rest of my code (this coding style is recommended by Henning at the bottom of the page http://haskell.org/hawiki/UsingQualifiedNames)
The only workaround seems to be to declare a type synonym for Box.T ie:
type BoxT = Box.T
$( [d| data T = T BoxT |] )
but while this is ok it's not ideal as then type synonyms have to be defined in each module instead of just being able to use the neat qualified naming syntax. Also it is strange because the normal decl
data T = T Box.T
works fine, so decls in [d| |] brackets must be being parsed differently from normal top level decls for some reason (I'm new to TH so I don't know why).
(The reason I'm doing this is to get extra fields added automatically to a record (and methods to an instance decl) to implement one level of inlined OO implementation inheritance in Haskell)
Anyway it's not essential, just a bit strange. I'll use the BoxT synonym for the moment.
Regards, Brian.
Trac metadata
Trac field | Value |
---|---|
Version | 6.4.2 |
Type | Bug |
TypeOfFailure | OtherFailure |
Priority | normal |
Resolution | Unresolved |
Component | Compiler |
Test case | |
Differential revisions | |
BlockedBy | |
Related | |
Blocking | |
CC | |
Operating system | |
Architecture |