Wielokrotne definicje funkcji z szablonu Haskell

Question

Załóżmy, że mam typ danych tak:

data Color = Red | Blue | Green 

Jak wygenerować funkcję jak ten przy użyciu templatehaskell?

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

tj. Szukam wielu definicji dla funkcji opartej na dopasowywaniu wzorców.

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) []