Deconstruct Primers for easier comparisons in guards
Created by wgaffa on February 6, 2023
ERSH4NEQUKSU6CLZN6B5WUNH37MW6G3C43YI2BDJSXWSQ5Q7Q3HAC Dependencies
In channels
main
Change contents
Replacement in src/AlBhed/Index.hs at line 40 [4.33]
addLocation primer location (x:xs)| x ^. _IndexItem . _1 . volume == primer ^. volume = (x & _IndexItem . _2 %~ NonEmptyList.push location):xsaddLocation primer@(Primer {_volume = vol'}) location (x@(IndexItem (Primer {_volume = vol}, _)):xs)| vol == vol' = (x & _IndexItem . _2 %~ NonEmptyList.push location):xs