Permalink
Browse files

Remove unnecessary forcing

  • Loading branch information...
1 parent 5742e7c commit 49de59b4c83664d8c1e48a899f2a8fcc7915cb6a @bos committed Jun 26, 2011
Showing with 1 addition and 1 deletion.
  1. +1 −1 Data/Double/Conversion.hs
View
2 Data/Double/Conversion.hs
@@ -73,7 +73,7 @@ convert func len act val = runST go
fail $ "Data.Double.Conversion." ++ func ++
": conversion failed (invalid precision requested)"
frozen <- A.unsafeFreeze buf
- return $! Text frozen 0 (fromIntegral size)
+ return $ Text frozen 0 (fromIntegral size)
foreign import ccall safe "hs-double-conversion.h _hs_ToShortestLength"
c_ToShortestLength :: CInt

0 comments on commit 49de59b

Please sign in to comment.