X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Flib%2FglaExts%2FPackedString.lhs;fp=ghc%2Flib%2FglaExts%2FPackedString.lhs;h=b04a71bef629ff877e75c63c89a407f1199c3339;hb=8d69b9e3c5ba1a2239656a97aea02b66b30ae819;hp=6816243506b415705276ac91ec552f3866252c18;hpb=42a94179c15d160ef9eccec7ef93b280005e761b;p=ghc-hetmet.git

diff --git a/ghc/lib/glaExts/PackedString.lhs b/ghc/lib/glaExts/PackedString.lhs
index 6816243..b04a71b 100644
--- a/ghc/lib/glaExts/PackedString.lhs
+++ b/ghc/lib/glaExts/PackedString.lhs
@@ -78,6 +78,7 @@ import {-# SOURCE #-}	IOBase	( error )
 import Ix
 import PrelList
 import STBase
+import UnsafeST	( unsafePerformPrimIO )
 import ArrBase
 import PrelBase
 import Foreign	( Addr(..) )