Browse files

Fixed build for GHC 7.4.1 Windows

Apparently, hsc2hs supports #if syntax and provides many of the macros
available with the CPP extension, but is not 100% compatible with CPP.
  • Loading branch information...
1 parent d4228c0 commit b13af63e1820c265dd434287a6ee6ae7327bdbe4 @joeyadams committed Feb 22, 2012
Showing with 4 additions and 4 deletions.
  1. +4 −4 Data/ByteString/Delta.hsc
View
8 Data/ByteString/Delta.hsc
@@ -1,4 +1,4 @@
-{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE CPP, ForeignFunctionInterface #-}
-- |
-- Module: Data.ByteString.Delta
-- Copyright: (c) Joseph Adams 2011
@@ -46,14 +46,14 @@ import Foreign (Ptr, alloca, peek)
import Foreign.C.String (CString, peekCAString)
import Foreign.C.Types
-#if MIN_VERSION_base(4,4,0)
+##if MIN_VERSION_base(4,4,0)
import Foreign.Marshal.Unsafe (unsafeLocalState)
-#else
+##else
import System.IO.Unsafe (unsafePerformIO)
unsafeLocalState :: IO a -> a
unsafeLocalState = unsafePerformIO
-#endif
+##endif
type BDELTAcode = #{type BDELTAcode}

0 comments on commit b13af63

Please sign in to comment.