[GHC] #6093: Kind polymorphism fails with recursive type definition using different kind

[GHC]

#6093: Kind polymorphism fails with recursive type definition using different kind
----------------------------------------+-----------------------------------
    Reporter:  Ashley Yakeley           |       Owner:                           
        Type:  bug                      |      Status:  new                      
    Priority:  normal                   |   Milestone:                           
   Component:  Compiler (Type checker)  |     Version:  7.4.1                    
    Keywords:                           |          Os:  Unknown/Multiple         
Architecture:  Unknown/Multiple         |     Failure:  GHC rejects valid program
  Difficulty:  Unknown                  |    Testcase:                           
   Blockedby:                           |    Blocking:                           
     Related:                           |  
----------------------------------------+-----------------------------------

Comment(by Ashley Yakeley):

 This is from a real example and potentially quite a useful one. I want to
 reify types, so I'm doing something a bit like this:
 {{{
 data Type t where
   SimpleType :: IOWitness a -> Type a
   ConstructedType :: Type f -> Type a -> Type (f a)
 }}}
 (There's more to it than that, I'm storing instance witnesses as well, but
 you get the idea.)

-- 
Ticket URL: <http://hackage.haskell.org/trac/ghc/ticket/6093#comment:2>
GHC <http://www.haskell.org/ghc/>
The Glasgow Haskell Compiler