X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Foreign%2FMarshal%2FAlloc.hs;h=b0e528bd3d883e0281ff9a757461d26743209b37;hb=dce1f7d375ddf22fc17ef98734a8ee6e302b1a45;hp=900c917034dcf45b2e40dfe468fab559c312819d;hpb=36f8318163450d74b185113669c354a7c9bf49d3;p=ghc-base.git

diff --git a/Foreign/Marshal/Alloc.hs b/Foreign/Marshal/Alloc.hs
index 900c917..b0e528b 100644
--- a/Foreign/Marshal/Alloc.hs
+++ b/Foreign/Marshal/Alloc.hs
@@ -42,7 +42,7 @@ import GHC.Real
 import GHC.Ptr
 import GHC.Err
 import GHC.Base
-#elsif defined(__HUGS__)
+#elif defined(__HUGS__)
 import Control.Exception	( bracket )
 #else
 import System.IO		( bracket )