Revision ebf38064 htools/Ganeti/THH.hs

b/htools/Ganeti/THH.hs
93 93 
-- The type will have a fixed list of instances.
94 94 
strADTDecl :: Name -> [String] -> Dec
95 95 
strADTDecl name constructors =
96 
    DataD [] name []
97 
              (map (flip NormalC [] . mkName) constructors)
98 
              [''Show, ''Read, ''Eq, ''Enum, ''Bounded, ''Ord]
96 
  DataD [] name []
97 
          (map (flip NormalC [] . mkName) constructors)
98 
          [''Show, ''Read, ''Eq, ''Enum, ''Bounded, ''Ord]
99 99 

  		





  100
  100
  
    
-- | Generates a toRaw function.


  		





  101
  101
  
    
--


  		












Also available in:
  Unified diff