wgaffa/ffxwt - Change VDMXZCZXWUDAW77OB7T2N4FNMRCLLP236XFUBJQYLSSRZFV6I4PQC

Instance FromJSON for PrintableText

Created by wgaffa on January 30, 2023

VDMXZCZXWUDAW77OB7T2N4FNMRCLLP236XFUBJQYLSSRZFV6I4PQC

Dependencies

[2] J7LSWCNFU3UWTUXFHQLIRLW2BHXJA54AT6SR5JY6JK3XABO4ZIXQC
[3] ZV7PIRTUNQYLWJQWKG73RC2X7MKSUMPGU7HQUW7TIBXB4OSYYDBAC

In channels

main

In discussions

#4 Create FromJSON instances for relevant types

#5 Remove underscore from field names in JSON

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

Change contents

Insertion in src/Data/PrintableText.hs at line 23 [3.530]

[2.358]


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