From: ross <unknown>
Date: Wed, 29 Jan 2003 14:28:47 +0000 (+0000)
Subject: [project @ 2003-01-29 14:28:47 by ross]
X-Git-Tag: nhc98-1-18-release~743
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6a25d2d80e3bc53c3b3869f30a0622f98bccb1b0;p=haskell-directory.git

[project @ 2003-01-29 14:28:47 by ross]
fix typo that broke non-GHC impls.
---

diff --git a/Foreign/Marshal/Array.hs b/Foreign/Marshal/Array.hs
index d8cce25..0cd959d 100644
--- a/Foreign/Marshal/Array.hs
+++ b/Foreign/Marshal/Array.hs
@@ -148,7 +148,7 @@ peekArray0 marker ptr  = loop 0
 --
 pokeArray :: Storable a => Ptr a -> [a] -> IO ()
 #ifndef __GLASGOW_HASKELL__
-pokeArray ptrs vals =  zipWithM_ (pokeElemOff ptr) [0..] vals
+pokeArray ptr vals =  zipWithM_ (pokeElemOff ptr) [0..] vals
 #else
 pokeArray ptr vals = go vals 0#
   where go [] n#         = return ()