path: root/testsuite/tests/deriving/should_compile/T12399.hs

{-# LANGUAGE DeriveFunctor, MagicHash, UnboxedTuples #-}
module T12399 where

import GHC.Exts

newtype RmLoopsM a = RmLoopsM { runRmLoops :: Int# -> (# Int#, a #) }
  deriving Functor