wgaffa/ffxwt - Change 3AQ5X2GY5OBCA2WBECG3VQHWKZ5PHDP2MAEZBMNT2S6X2I52EWQQC

Parse of new structure for AlBhed.Index.Index

Created by wgaffa on March 4, 2023

3AQ5X2GY5OBCA2WBECG3VQHWKZ5PHDP2MAEZBMNT2S6X2I52EWQQC

Dependencies

[2] JSP7TOSALDVRSYZ2MA2VQW6664N6M4RKW2CJCUFWM3CDAK43KPQQC
[3] FOVYMRDC25V5AMZSFJHVNG6G7MMQPWPALLNI5RWF3JRDXRPMOCIAC
[4] DT2CHVIEWBPILKXBYFYT6C3C3BOADG6ITIUXYY6VMQU7EFT6S6JQC
[5] RC3PFIKJSUKEVPIKFKKHWSEKZLWSA3G2W2RHDOZP4JNO3GBSZRTAC

In channels

main

Change contents

Insertion in src/Data/JSON.hs at line 2 [4.154]
[3.35]
[3.35]
```
{-# LANGUAGE FlexibleInstances #-}
```

Insertion in src/Data/JSON.hs at line 15 [4.154]

[5.96]

[2.72]

import           Data.IntMap          (IntMap)
import qualified Data.IntMap          as IMap

Insertion in src/Data/JSON.hs at line 107 [4.154]

[3.742]


instance {-# OVERLAPPING #-} FromJSON (IntMap IndexItem) where
    parseJSON = withArray "AlBhed.Index" parseValues
        where
            parseVec = sequence . Vector.toList . Vector.map fromJSON
            parseValues array = case parseVec array of
                Success x -> pure . IMap.fromList . map (\item@(IndexItem (primer, _)) -> (primer ^. volume & fromVolume, item)) $ x
                _ -> fail "Unable to parse values"

Parse of new structure for AlBhed.Index.Index

Dependencies

In channels

Change contents

Insertion in src/Data/JSON.hs at line 2 [4.154]

Insertion in src/Data/JSON.hs at line 15 [4.154]

Insertion in src/Data/JSON.hs at line 107 [4.154]