No title

tsahyt 2018-04-26 08:20:01.674266 UTC

1module Flat where
2
3data Foo a = Foo
4 { foo :: {-# UNPACK #-} !a
5 , bar :: {-# UNPACK #-} !a
6 }