Ticket #786: Unboxable.hs

File Unboxable.hs, 123 bytes (added by guest, 9 years ago)
Line 
1{-# OPTIONS_GHC -fglasgow-exts #-}
2import GHC.Base
3class E a where
4    f :: a
5    f = tagToEnum# 0#
6main = return ()