Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Remove unnecessary forcing

  • Loading branch information...
commit 49de59b4c83664d8c1e48a899f2a8fcc7915cb6a 1 parent 5742e7c
Bryan O'Sullivan authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  Data/Double/Conversion.hs
2  Data/Double/Conversion.hs
View
@@ -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
Please sign in to comment.
Something went wrong with that request. Please try again.