definizioni di funzioni multiple con template Haskell

Question

Supponiamo che io sono un tipo di dati in questo modo:

data Color = Red | Blue | Green 

Come dovrei generare una funzione come questa utilizzando templatehaskell?

myShow Red = ... 
myShow Blue = ... 
myShow Green = ... 

Ad esempio, sto cercando più definizioni per una funzione basata sulla corrispondenza del modello.

Answer 1

{-# LANGUAGE TemplateHaskell #-} 

module Test where 

import Language.Haskell.TH 

data Color = Red | Blue | Green 

myShow' :: Q [Dec] 
myShow' = return [FunD (mkName "myShow") [mkClause 'Red, mkClause 'Blue, mkClause 'Green]] 
    where mkClause n = Clause [ConP n []] (NormalB $ LitE $ StringL $ nameBase n) []