path: root/testsuite/tests/th/T20791.hs

{-# LANGUAGE TemplateHaskell #-}
module T20791 where

import Control.Monad.IO.Class

main = $(liftIO $ (print ()) >> [| print () |])