summaryrefslogtreecommitdiff
path: root/testsuite/tests/th/TH_unboxedSingleton.hs
blob: d932285870a91f10fcf0da508abb3e0a423d08cb (plain)
1
2
3
4
5
6
7
{-# LANGUAGE TemplateHaskell, UnboxedTuples #-}

module TH_unboxedSingleton where

f :: () -> (# Int #)
f () = $( [| (# 3 #) |] )