Nhiều định nghĩa chức năng với mẫu Haskell

Question

Giả sử tôi có một kiểu dữ liệu như vậy:

data Color = Red | Blue | Green 

Làm thế nào tôi sẽ tạo ra một chức năng như thế này sử dụng templatehaskell?

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

tức là tôi đang tìm nhiều định nghĩa cho một hàm dựa trên mẫu phù hợp.

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