c_UpdateCRC - unsafe->safe

git-svn-id: https://freearc.svn.sourceforge.net/svnroot/freearc@68 3a4f7f31-9599-433d-91b1-573e8b61252c
abandonware · Feb 10, 2009 · 5db01b5 · 5db01b5
1 parent 758c382
commit 5db01b5
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Compression.hs b/Compression.hs
@@ -328,7 +328,7 @@ finishCRC = xor aINIT_CRC
 calcCRC addr len  =  updateCRC addr len aINIT_CRC  >>==  finishCRC
 
 -- |Fast C routine for CRC-32 calculation
-foreign import ccall unsafe "Environment.h UpdateCRC"
+foreign import ccall safe "Environment.h UpdateCRC"
    c_UpdateCRC :: Ptr CChar -> CUInt -> CRC -> IO CRC