wgaffa/ffxwt - Change KF36I3CZFW4SKD4JX4D6EDR2BJGJ7RGN4LH75P6Y7XZPYAEOAC5AC

Move PrintableText to Data.JSON

Created by wgaffa on February 2, 2023

KF36I3CZFW4SKD4JX4D6EDR2BJGJ7RGN4LH75P6Y7XZPYAEOAC5AC

Dependencies

In channels

main

In discussions

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

Change contents

Deletion in src/Data/PrintableText.hs at line 13 [5.530]
B:BD[2.71] → [2.71:72]
∅:D[2.72] → [6.209:237]
B:BD[5.703] → [6.209:237]
```
import           Data.Aeson
```

Deletion in src/Data/PrintableText.hs at line 17 [5.530]

B:BD[5.924] → [5.924:925]

B:BD[5.925] → [6.238:358]


instance ToJSON PrintableText where
    toJSON = toJSON . unPrintableText
    toEncoding = toEncoding . unPrintableText

Deletion in src/Data/PrintableText.hs at line 18 [5.530]

B:BD[3.1] → [3.1:161]

∅:D[3.161] → [6.358:359]

B:BD[6.358] → [6.358:359]

instance FromJSON PrintableText where
    parseJSON = withText "PrintableText" $ \text ->
        maybe (fail "Text contains only spaces") pure (fromText text)

Insertion in src/Data/JSON.hs at line 10 [4.154]
[4.266]
[4.266]
```
import           Data.PrintableText
```

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

[4.359]

instance ToJSON PrintableText where
    toJSON = toJSON . unPrintableText
    toEncoding = toEncoding . unPrintableText
instance FromJSON PrintableText where
    parseJSON = withText "PrintableText" $ \text ->
        maybe (fail "Text contains only spaces") pure (fromText text)