testsuite/tests/safeHaskell/safeLanguage/SafeLang18.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14

{-# LANGUAGE CPP #-}
#if __GLASGOW_HASKELL__ >= 703
{-# LANGUAGE Safe #-}
#endif
module SafeLang18 where

#define p377 toPair

data StrictPair a b = !a :*: !b

toPair :: StrictPair a b -> (a, b)
toPair (x :*: y) = (x, y)
{-# INLINE p377 #-}