testsuite/tests/deSugar/should_compile/T5252Take2a.hs


1
2
3
4
5
6
7
8

{-# OPTIONS_GHC -funbox-strict-fields #-}
 
module T5252Take2a ( WriteMessage(..) , WriteDevice ) where

import qualified Data.ByteString as ByteString

data WriteMessage = WriteMessage !WriteDevice
newtype WriteDevice = WriteDevice ByteString.ByteString