@@ -4,7 +4,6 @@ import Control.Lens
44import Control.Monad
55import Data.Coerce
66import Data.Generics.Product (field)
7−import Data.List as L (find)
87import Data.Text as T (Text, pack)
98import Obelisk.Route.Frontend
109import Reflex.Dom as R
@@ -30,8 +29,8 @@ deploymentPage
3029 -> DeploymentName -> m ()
3130deploymentPage updAllEv dname = do
3231 pb <- getPostBuild
33− respEv <- listEndpoint pb
34− let (okEv, errEv) = processResp dname respEv
32+ respEv <- fullInfoEndpoint (constDyn $ Right dname) pb
33+ let (okEv, errEv) = processResp respEv
3534 widgetHold_ (loadingWidget dname) $ leftmost
3635 [ errorWidget dname <$ errEv
3736 , deploymentWidget updAllEv <$> okEv ]
@@ -48,8 +47,8 @@ deploymentWidget
4847 -> m ()
4948deploymentWidget updEv dfi = do
5049 (editEv, logsEv) <- pageWrapper $ do
51− respEv <- listEndpoint updEv
52− let (okEv, _errEv) = processResp (dfi ^. dfiName) respEv
50+ respEv <- fullInfoEndpoint (constDyn $ Right $ dfi ^. dfiName) updEv
51+ let (okEv, _errEv) = processResp respEv
5352 dfiDyn <- holdDyn dfi okEv
5453 editEv <- deploymentHead dfiDyn
5554 stagingNotification never
@@ -260,17 +259,13 @@ backButton = do
260259
261260processResp
262261 :: Reflex t
263− => DeploymentName
264− -> Event t (ReqResult tag [DeploymentFullInfo])
262+ => Event t (ReqResult tag DeploymentFullInfo)
265263 -> (Event t DeploymentFullInfo, Event t ())
266−processResp dname respEv =
264+processResp respEv =
267265 let
268266 respOkEv = fmapMaybe reqSuccess respEv
269− errEv' = fmapMaybe reqFailure respEv
270− findFunc dfi = dfi ^. dfiName == dname
271− okEv = fmapMaybe (find findFunc) respOkEv
272− errEv = leftmost [ () <$ errEv', () <$ difference respOkEv okEv ]
273− in (okEv, errEv)
267+ errEv = fmapMaybe reqFailure respEv
268+ in (respOkEv, () <$ errEv)
274269
275270
276271data DeploymentPageNotification