int32ToFloat :: Int32 -> Float
int32ToFloat =
  either (const (0/0)) id .
  runGet getFloat32le .
  runPut .
  putWord32le .
  fromIntegral
int32ToFloat :: Int32 -> Float
int32ToFloat =
  either (const (0/0)) id .
  runGet getFloat32le .
  runPut .
  putWord32le .
  fromIntegral
int32ToFloat =
  either (const (0/0)) id .
  runGet getFloat32le .
  runPut .
  putWord32le .
  fromIntegral