aihc-parser-1.0.0.2: test/Test/Fixtures/oracle/PatternSynonyms/pattern-synonyms-inline-pragmas.hs

{- ORACLE_TEST pass -}
{-# LANGUAGE PatternSynonyms #-}

module PatternSynonymsInlinePragmas where

data Wrapped = Wrapped Int

pattern Wrap :: Int -> Wrapped
pattern Wrap n = Wrapped n

{-# INLINE Wrap #-}
{-# NOINLINE [0] Wrap #-}

build :: Int -> Wrapped
build = Wrap