AP
locus state == Just (T t)
переписать наJust (T t') <- [locus state]
t' == tSize: a a a
AP
locus state == Just (T t)
переписать наJust (T t') <- [locus state]
t' == tK
locus state == Just (T t)
переписать наJust (T t') <- [locus state]
t' == t[] вокруг locus state?AP
| Just (T t') <- map locus states
, t' == tAP
[] вокруг locus state?AP
AP
AP
AP
[ x | Just x <- [Nothing, Just 42, Nothing] ] -> [42]AP
AP
[ x | Just x <- [Nothing, Just 42, Nothing] ] -> [42]K
, locus state == Just (T t) - чем не предикат?AP
AP
DB
K
t должен быть как минимум Ord, я его в Set/Map ключами сую самого и в структурах