#40 Fix fromInfinite error

In the implementation of fromInfinite, we pass an infinite list to
Data.Primitive.Array.fromListN (bits + 1), but fromListN expects a list
a list of length (bits + 1), which results in a runtime error.

To fix this, we take the first (bits + 1) of the infinite list before
passing to fromListN.

src/Data/Chimera/Internal.hs

@@ -568,7 +568,7 @@ fromInfinite
   :: G.Vector v a
   => Infinite a
   -> Chimera v a
-fromInfinite = Chimera . fromListN (bits + 1) . go0
+fromInfinite = Chimera . fromListN (bits + 1) . take (bits + 1) . go0
   where
     go0 (x :< xs) = G.singleton x : go 0 xs