From 6b8c48416735832300c2a35e91c66e5a35e48c71 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 5 Aug 2002 08:48:08 +0000
Subject: [PATCH] [project @ 2002-08-05 08:48:07 by simonmar] Remove the
 literate bits from this file: I'm trying to keep .lhs out
 of the non-GHC parts of the libraries tree, we don't use it
 any more and it clutters up the code.

---
 Foreign/{Storable.lhs => Storable.hs} |   20 +++-----------------
 1 file changed, 3 insertions(+), 17 deletions(-)
 rename Foreign/{Storable.lhs => Storable.hs} (96%)

diff --git a/Foreign/Storable.lhs b/Foreign/Storable.hs
similarity index 96%
rename from Foreign/Storable.lhs
rename to Foreign/Storable.hs
index 0155258..c7d6f27 100644
--- a/Foreign/Storable.lhs
+++ b/Foreign/Storable.hs
@@ -1,4 +1,3 @@
-\begin{code}
 {-# OPTIONS -fno-implicit-prelude #-}
 -----------------------------------------------------------------------------
 -- |
@@ -10,7 +9,7 @@
 -- Stability   :  provisional
 -- Portability :  portable
 --
--- The module "Storable" provides most elementary support for
+-- The module "Foreign.Storable" provides most elementary support for
 -- marshalling and is part of the language-independent portion of the
 -- Foreign Function Interface (FFI), and will normally be imported via
 -- the "Foreign" module.
@@ -28,9 +27,8 @@ module Foreign.Storable
 	     peek,           -- :: Ptr a             -> IO a
 	     poke)           -- :: Ptr a        -> a -> IO ()
         ) where
-\end{code}
 
-\begin{code}
+
 import Control.Monad		( liftM )
 import Foreign.Ptr
 import Foreign.C.Types
@@ -53,14 +51,7 @@ import GHC.Base
 #elif defined(__HUGS__)
 import HugsStorable
 #endif
-\end{code}
-
-Primitive marshaling
-
-Minimal complete definition: sizeOf, alignment, and one definition
-in each of the peek/poke families.
 
-\begin{code}
 {- |
 The member functions of this class facilitate writing values of
 primitive types to raw memory (which may have been allocated with the
@@ -165,18 +156,14 @@ class Storable a where
 
    peek ptr = peekElemOff ptr 0
    poke ptr = pokeElemOff ptr 0
-\end{code}
 
 #ifndef __GLASGOW_HASKELL__
-\begin{code}
 sizeOfPtr :: Storable a => Ptr a -> a -> Int
 sizeOfPtr px x = sizeOf x
-\end{code}
 #endif
 
-System-dependent, but rather obvious instances
+-- System-dependent, but rather obvious instances
 
-\begin{code}
 instance Storable Bool where
    sizeOf _          = sizeOf (undefined::CInt)
    alignment _       = alignment (undefined::CInt)
@@ -274,4 +261,3 @@ NSTORABLE(CWchar)
 NSTORABLE(CSigAtomic)
 NSTORABLE(CClock)
 NSTORABLE(CTime)
-\end{code}
-- 
1.7.10.4