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

{-# LANGUAGE TemplateHaskell #-}

module T11941 where

import Data.Monoid

const (return []) $ mempty { getFrst = Just () }