blob: 02896d98da4463af024eef09b8ec7b54f2035933 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
|
--- 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
|