wgaffa/ffxwt - Change HDXZOIW5VQNW7CELIX24MSBSZEUBBUNYQGK55G6U6J4SFDGUECJAC

Only create new primers if they are equal when using the command `new`

Created by wgaffa on February 19, 2023

HDXZOIW5VQNW7CELIX24MSBSZEUBBUNYQGK55G6U6J4SFDGUECJAC

Dependencies

[2] JQ7UT7FELK3N6YWOMHTSGUA6AWRLVFTG3PT5MBZPLGVTLAAGQQRQC
[3] B2JWXIEPCMVVITDJDR2SACY4VHITXGH7ZM6A5RWN6E7OKTO43TUAC

In channels

main

Change contents

Replacement in app/Main.hs at line 75 [3.1294]

B:BD[2.452] → [2.452:556]

            let index = addLocation (Primer vol from to) loc primers
                in saveIndex index

[2.452]

[2.556]

            let newPrimer = Primer vol from to
                index = case getPrimer vol primers of
                    Nothing -> Right $ addLocation newPrimer loc primers
                    Just x ->
                        if x == newPrimer
                        then Right $ addLocation newPrimer loc primers
                        else Left "The primer already exists and they differ in some fields"
                in liftEither index >>= saveIndex