wgaffa/ffxwt - Change JTWT45BHSCSNVFFUW4OXPUHEV7OTC4SMME7PFBEYPBW66G5DZBGAC

Move Primer and Volume JSON to Data.JSON

Created by wgaffa on February 2, 2023

JTWT45BHSCSNVFFUW4OXPUHEV7OTC4SMME7PFBEYPBW66G5DZBGAC

Dependencies

In channels

main

In discussions

#1 Break apart JSON code into it's own module

Change contents

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

[4.266]

[5.86]


import qualified Data.Scientific     as Scientific (toBoundedInteger)

Insertion in src/Data/JSON.hs at line 15 [4.154]
[3.1]
[3.1]
```
import           AlBhed
```

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

[3.187]

[5.124]

instance ToJSON Volume where
    toJSON = Number . fromIntegral . fromVolume
    toEncoding = int . fromVolume
instance FromJSON Volume where
    parseJSON (Number x) =
        let maybeVolume = Scientific.toBoundedInteger x >>= toVolume
        in case maybeVolume of
            Just vol -> pure vol
            Nothing  -> fail "Volume number is out of bounds"
    parseJSON _ = fail "Volume must be a number"
instance ToJSON Primer where
    toEncoding = genericToEncoding jsonOptions
instance FromJSON Primer where
    parseJSON = genericParseJSON jsonOptions

File deletion: JSON.hs

BF:BFD[6.143] → [6.145:176]

BF:BFD[6.176] → [6.177:177]

B:BD[6.177] → [6.178:281]

B:BD[6.281] → [4.360:387]

∅:D[4.387] → [6.281:351]

B:BD[6.281] → [6.281:351]

B:BD[6.380] → [6.380:435]

∅:D[2.82] → [6.527:860]

B:BD[6.527] → [6.527:860]

∅:D[4.435] → [6.950:982]

∅:D[7.799] → [6.950:982]

B:BD[6.950] → [6.950:982]

∅:D[4.481] → [6.1070:1071]

∅:D[7.888] → [6.1070:1071]

B:BD[6.1070] → [6.1070:1071]

B:BD[6.982] → [4.436:481]

B:BD[6.860] → [4.388:435]

B:BD[6.435] → [2.0:82]

module AlBhed.JSON
    (
    ) where
import           Data.Aeson
import           Data.Aeson.Encoding
import           Data.JSON
import qualified Data.Scientific     as Scientific (toBoundedInteger)
import           AlBhed
instance ToJSON Volume where
instance FromJSON Volume where
    parseJSON (Number x) =
        let maybeVolume = Scientific.toBoundedInteger x >>= toVolume
        in case maybeVolume of
            Just vol -> pure vol
            Nothing  -> fail "Volume number is out of bounds"
    parseJSON _ = fail "Volume must be a number"
instance ToJSON Primer where
instance FromJSON Primer where
    parseJSON = genericParseJSON jsonOptions
    toEncoding = genericToEncoding jsonOptions
    toJSON = Number . fromIntegral . fromVolume
    toEncoding = int . fromVolume

Deletion in ffxwt.cabal at line 29 [9.164]
B:BD[8.1413] → [6.1072:1094]
```
        , AlBhed.JSON
```