Ticket #1255: Foo.hs

File Foo.hs, 295 bytes (added by rashakil, 8 years ago)

Source file, listed in description already.

Line 
1{-# OPTIONS_GHC -funbox-strict-fields #-}
2
3module Foo where
4
5import Foreign.Ptr
6
7newtype  Bar        = Bar (Ptr Bar) -- Must be Bar inside.
8
9data  Gah           = Gah { baaz  :: !Bar }
10
11-- Alternately, disable -funbox-strict-fields and use {-# UNPACK #-},
12-- and the impossible still happens.
13
14