wgaffa/ffxwt - Change FKQ463MCL4DG2RTCNC3JUWE42QQAVNTF4YRS3RZB5YF5AAYQVI2QC

Implement add functionality

Created by wgaffa on February 19, 2023

FKQ463MCL4DG2RTCNC3JUWE42QQAVNTF4YRS3RZB5YF5AAYQVI2QC

Dependencies

[2] JQ7UT7FELK3N6YWOMHTSGUA6AWRLVFTG3PT5MBZPLGVTLAAGQQRQC
[3] B2JWXIEPCMVVITDJDR2SACY4VHITXGH7ZM6A5RWN6E7OKTO43TUAC

In channels

main

Change contents

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

B:BD[2.370] → [2.370:412]

        (Primer.Add vol loc) -> undefined

[2.370]

[2.412]

        (Primer.Add vol loc) ->
            case getPrimer vol primers of
                Nothing -> throwError "Primer not found"
                Just x -> saveIndex $ addLocation x loc primers