[make the libraries a bit more haddock friendly.
John Meacham <john@repetae.net>**20090822053148
 Ignore-this: 1de3da058f1a9ef0e7dde343ddb28c9d
] hunk ./lib/base/Data/Unique.hs 1
-{-# LANUAGE FFI #-}
hunk ./lib/base/Foreign/C/OldString.hs 1
-module Foreign.C.String where
-
-import Char
-import Foreign.C.Types
-import Foreign.Marshal.Array
-import Foreign.Ptr
-import Data.Word
-
-type CString = Ptr CChar
-type CStringLen = (Ptr CChar, Int)
-
-nUL :: CChar
-nUL = 0
-
-peekCString :: CString -> IO String
-peekCString cp = do
-    cs <- peekArray0 nUL cp
-    return (cCharsToChars cs)
-
--- TODO UTF8
--- cast [CChar] to [Char]
---
-cCharsToChars :: [CChar] -> [Char]
-cCharsToChars xs  = map castCCharToChar xs
-
--- cast [Char] to [CChar]
---
-charsToCChars :: [Char] -> [CChar]
-charsToCChars xs  = map castCharToCChar xs
-
-castCCharToChar :: CChar -> Char
-castCCharToChar ch = chr (fromIntegral (fromIntegral ch :: Word8))
-
-castCharToCChar :: Char -> CChar
-castCharToCChar ch = fromIntegral (ord ch)
-
rmfile ./lib/base/Foreign/C/OldString.hs
rmdir ./lib/base/Foreign/C
hunk ./lib/base/Foreign/Marshal.hs 2
+{-# OPTIONS_JHC -N #-}
hunk ./lib/base/Unsafe/Coerce.hs 2
+{-# LANGUAGE ForeignFunctionInterface #-}
hunk ./lib/base/Unsafe/Coerce.hs 5
-
hunk ./lib/jhc/Data/Word.hs 1
-{-# OPTIONS -N #-}
+{-# OPTIONS_JHC -N #-}
+{-# LANGUAGE NoImplicitPrelude #-}
hunk ./lib/jhc/Foreign/C/Types.hs 2
+{-# LANGUAGE NoImplicitPrelude #-}
hunk ./lib/jhc/Foreign/Storable.hs 4
-m4_include(Foreign/Storable.m4)
hunk ./lib/jhc/Foreign/Storable.hs 11
+m4_include(Foreign/Storable.m4)
hunk ./lib/jhc/Jhc/Addr.hs 3
-m4_include(Jhc/Order.m4)
hunk ./lib/jhc/Jhc/Addr.hs 20
+m4_include(Jhc/Order.m4)
hunk ./lib/jhc/Jhc/Inst/Storable.hs 5
-m4_include(Foreign/Storable.m4)
hunk ./lib/jhc/Jhc/Inst/Storable.hs 18
+m4_include(Foreign/Storable.m4)
hunk ./lib/jhc/Jhc/Options.hs 2
+{-# LANGUAGE CPP #-}
hunk ./lib/jhc/Jhc/Order.hs 3
-m4_include(Jhc/Order.m4)
hunk ./lib/jhc/Jhc/Order.hs 15
+
hunk ./lib/jhc/Jhc/Order.hs 20
+m4_include(Jhc/Order.m4)
+
hunk ./lib/jhc/Jhc/Prim.hs 2
+{-# LANGUAGE UnboxedTuples, ForeignFunctionInterface, NoImplicitPrelude #-}
hunk ./lib/jhc/Jhc/Prim.hs 33
--- | this is wrapped around arbitrary expressions and just evaluates them to whnf
-foreign import primitive "seq" runRaw :: a -> World__ -> World__
hunk ./lib/jhc/Jhc/Prim.hs 38
+-- | this is wrapped around arbitrary expressions and just evaluates them to whnf
+foreign import primitive "seq" runRaw :: a -> World__ -> World__
hunk ./lib/jhc/Jhc/Prim.hs 44
-foreign import primitive dependingOn :: forall a b. a -> b -> a
+foreign import primitive dependingOn :: a -> b -> a
hunk ./lib/jhc/Jhc/String.hs 2
+{-# LANGUAGE NoImplicitPrelude, MagicHash #-}
hunk ./lib/jhc/Jhc/String.hs 87
--- returns it in an Char__ even though it is just a byte
-foreign import primitive constPeekByte :: Addr__ -> Char__
hunk ./lib/jhc/Jhc/String.hs 98
+-- returns it in an Char__ even though it is just a byte
+foreign import primitive constPeekByte :: Addr__ -> Char__
hunk ./lib/jhc/Jhc/Types.hs 1
+{-# LANGUAGE NoImplicitPrelude #-}
hunk ./lib/jhc/Jhc/Types.hs 27
-
-
hunk ./lib/jhc/System/IO/Unsafe.hs 1
-{-# OPTIONS -N #-}
+{-# OPTIONS_JHC -N #-}
hunk ./lib/jhc/System/Mem/StableName.hs 3
-m4_include(Jhc/Order.m4)
-
hunk ./lib/jhc/System/Mem/StableName.hs 5
+
hunk ./lib/jhc/System/Mem/StableName.hs 10
+m4_include(Jhc/Order.m4)
+