Skip to content

Instantly share code, notes, and snippets.

@fendor

fendor/A.hs

Created September 5, 2020 19:09
Show Gist options
  • Save fendor/b85311fe99a6aedd8be08f8a5be739f7 to your computer and use it in GitHub Desktop.
Save fendor/b85311fe99a6aedd8be08f8a5be739f7 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
A.hs
{-# LANGUAGE TemplateHaskell #-}
module A (template) where
import Language.Haskell.TH
template :: DecsQ
template = do
consA <- newName "A"
consA' <- newName "A"
pure [DataD [] consA' [] Nothing [NormalC consA []] []]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment