1 2 3 4 5 6
{-# LANGUAGE TemplateHaskell, NoMonomorphismRestriction #-} module TH where import Language.Haskell.TH spliceMe = [| (\xs -> tail xs ++ init xs) |]