Commits

Bryan O'Sullivan  committed 65f52bd

Remove unnecessary forcing

  • Participants
  • Parent commits f41e032

Comments (0)

Files changed (1)

File Data/Double/Conversion.hs

         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