A
многоэтажненько...
Size: a a a
2021 January 03
A
с другой стороны у меня вот все равно есть в другом месте кода правка аналогичного жсона, так что можно подумать
к
и альтернатива
к
я бы мб даже в отдельный json-файл выкинул вообще, и просто его или в рантайме, или в компайлтайме через th читал
к
еще может быть нормальной альтернативой просто анонимные рекорды
A
ну да, у меня есть идея выкинуть шаблон наружу
A
так, а теперь не могу осилить правку этого жсона
A
let spec = spec ^? key "process" . key "cwd" . _String <>~ (config ^?! key "container_config" . key "WorkingDir" . _String)
A
так не ест
JS
let spec = spec ^? key "process" . key "cwd" . _String <>~ (config ^?! key "container_config" . key "WorkingDir" . _String)
(^?) — чтение
JS
правка через (&)
JS
и spec через spec не надо рекурсивно определять
JS
let spec2 = spec1 & key... <>~ config...A
а эти & по цепочке можно собрать?
JS
да, скорее всего.
A
хм, у меня в другом месте в коде через ^? делается...
A
configMounts :: MonadIO m => StateT Value (Rsd m) ()
configMounts = do
newMounts <- V.fromList . map toJSON <$> lift mounts
modify $ key "mounts" . _Array <>~ newMounts
A
а, не, тут нету ^?
JS
modify $ key "mounts" . _Array <>~ newMounts==
key "mounts" . _Array <>= newMountsJS
да, скорее всего.
если скобки добавить, точно можно