wgaffa/ffxwt - Change SEPLAL77TB3T7FLHDDUQVJ6HOMWHV7AULLVCKUYUOZYNA5T7WO2QC

A cli database for some FFX stuff

IndexItem is now a Prism and a newtype instead of type alias

Created by wgaffa on February 3, 2023

SEPLAL77TB3T7FLHDDUQVJ6HOMWHV7AULLVCKUYUOZYNA5T7WO2QC

Dependencies

In channels

main

Change contents

Insertion in src/AlBhed/Index.hs at line 1 [3.33]
[3.33]
[3.34]
```
{-# LANGUAGE TemplateHaskell #-}
```
Insertion in src/AlBhed/Index.hs at line 12 [3.33]
[2.56]
[3.106]
```
    -- * Prisms
    , _IndexItem
```
Insertion in src/AlBhed/Index.hs at line 17 [3.33]
[4.403]
[3.118]
```
import           Control.Lens.TH
```

Replacement in src/AlBhed/Index.hs at line 26 [3.33]

B:BD[3.297] → [3.297:346]

type IndexItem = (Primer, NonEmptyList Location)

[3.297]

[3.346]

newtype IndexItem = IndexItem (Primer, NonEmptyList Location)
$(makePrisms ''IndexItem)

Replacement in src/AlBhed/Index.hs at line 34 [3.33]
∅:D[4.487] → [3.415:463]
B:BD[3.415] → [3.415:463]
```
singleton x y = [(x, NonEmptyList.singleton y)]
```
[4.487]
[3.463]
```
singleton x y = [IndexItem (x, NonEmptyList.singleton y)]
```

Replacement in src/AlBhed/Index.hs at line 39 [3.33]

B:BD[4.654] → [4.654:731]

addLocation primer location [] = [(primer, NonEmptyList.singleton location)]

[4.654]

[4.731]

addLocation primer location [] = [IndexItem (primer, NonEmptyList.singleton location)]

Replacement in src/AlBhed/Index.hs at line 41 [3.33]

B:BD[4.766] → [4.766:853]

    | x ^. _1 . volume == primer ^. volume = (x & _2 %~ NonEmptyList.push location):xs

[4.766]

[4.853]

    | x ^. _IndexItem . _1 . volume == primer ^. volume = (x & _IndexItem . _2 %~ NonEmptyList.push location):xs