ChrisPenner/json-to-haskell
1
1
Fork 0
mirror of https://github.com/ChrisPenner/json-to-haskell.git synced 2024-09-11 20:38:48 +03:00
Code Issues Projects Releases Wiki Activity

Fix subtle bug where we fetch more than the first element

Browse Source
This commit is contained in:
Chris Penner 2020-11-08 21:12:20 -06:00
parent 6f9b3e4442
commit 99cf8e89f4
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/JsonToHaskell/Internal/Parser.hs
View File

@ -75,10 +75,9 @@ analyze value =
nameRecord m'
pure $ SRecord m'
ArrayF itemsM -> do
items <- sequenceA itemsM
pure $ case (items V.!? 0) of
Just s -> SArray s
Nothing -> SArray SValue
case (itemsM V.!? 0) of
Just s -> SArray <$> s
Nothing -> pure $ SArray SValue
StringF _ -> pure SString
NumberF n -> pure . SNumber
$ if (ceiling n == (floor n :: Int))