TODO: replace traps?

[mate.git] / Mate / Strings.hs

diff --git a/Mate/Strings.hs b/Mate/Strings.hs
index 2ebda14e4861da078d754c6730999c6fc8e8e56e..3ac7f995401e99c2fb0abda89062f3ea5bd6ebc6 100644 (file)
--- a/Mate/Strings.hs
+++ b/Mate/Strings.hs
@@ -62,7 +62,7 @@ allocateJavaString str = do
   poke ptr $ fromIntegral mtbl
 
   -- build array layout
-  let strlen = (fromIntegral $ B.length str)
+  let strlen = fromIntegral $ B.length str
   -- (+1) for \0, (+4) for length
   newstr <- mallocString (strlen + 5)
   BI.memset newstr 0 (fromIntegral $ strlen + 5)