X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FPack.lhs;h=14ac670773367b75e1c408a86f8a969752962526;hb=be2750a0a11b919fb03cc070074e430f88bdfa90;hp=47e602bfc868e591c35cb64ffebf9d0dd6493d1c;hpb=10de2c656f74562b662c22928be85e1b3ccda796;p=ghc-base.git diff --git a/GHC/Pack.lhs b/GHC/Pack.lhs index 47e602b..14ac670 100644 --- a/GHC/Pack.lhs +++ b/GHC/Pack.lhs @@ -1,6 +1,7 @@ \begin{code} -{-# OPTIONS_GHC -XNoImplicitPrelude #-} +{-# LANGUAGE NoImplicitPrelude, MagicHash, UnboxedTuples #-} {-# OPTIONS_HADDOCK hide #-} + ----------------------------------------------------------------------------- -- | -- Module : GHC.Pack @@ -35,10 +36,8 @@ module GHC.Pack where import GHC.Base -import GHC.Err ( error ) import GHC.List ( length ) import GHC.ST -import GHC.Num import GHC.Ptr data ByteArray ix = ByteArray ix ix ByteArray#