mirror of
https://git.FreeBSD.org/ports.git
synced 2024-12-14 03:10:47 +00:00
12 lines
335 B
Haskell
12 lines
335 B
Haskell
--- TclPrimGhc.hs.orig Fri Feb 23 13:23:23 2001
|
|
+++ TclPrimGhc.hs Thu Oct 23 09:11:54 2003
|
|
@@ -42,7 +42,7 @@
|
|
writeElt pstr 0 str
|
|
return pstr
|
|
where
|
|
- len = Word.intToWord32 (length str + 1)
|
|
+ len = fromIntegral (length str + 1)
|
|
|
|
writeElt addr n [] = writeCharOffAddr addr n '\0'
|
|
writeElt addr n (v :vs) = do
|