decode (encode NaN) /= NaN

The IEEE "not-a-number" (NaN) value is not encoded properly, since `encode` uses `decodeFloat`, which is unspecified for NaN (cf. [Prelude](http://hackage.haskell.org/package/base-4.7.0.1/docs/Prelude.html#v:decodeFloat)).

Examples:

``` Haskell
(0 / 0 :: Double) = NaN
(decode (encode (0 / 0 :: Double)) :: Double) = -Infinity
(log (-1) :: Double) = NaN
(decode (encode (log (-1) :: Double)) :: Double) = Infinity
(0 / 0 :: Float) = NaN
(decode (encode (0 / 0 :: Float)) :: Float) = -Infinity
```

Empieza leyendo los puntos de entrada encode y decode del paquete Haskell binary, centrándote en la ruta de Float y Double que usa decodeFloat. Reproduce los ejemplos de NaN indicados y verifica después que codificar y decodificar NaN conserva NaN para ambos tipos.

Escrito por el modelo de indexación a partir del texto del issue.