"/info"
getJson "/config"
do
result <- lmap AX.printError <$> AX.get ResponseFormat.blob ("/info/" <> url)
case result of
Left err -> pure $ Left err
Right response -> do
blobUrl <- liftEffect $ createObjectURL response.body
image <- loadImage blobUrl
pure (Right image)
let
from' = show $ datetimeToSeconds from
to' = show $ datetimeToSeconds to
stride' = show stride
in getJson $ "/tracklet_pos?from=" <> from' <> "&to=" <> to' <> "&stride=" <> stride'
let
from' = show $ datetimeToSeconds from
to' = show $ datetimeToSeconds to
stride' = show stride
in getJson $ "/tracklet_pos?from=" <> from' <> "&to=" <> to' <> "&stride=" <> stride'
let
from' = show $ datetimeToSeconds from
to' = show $ datetimeToSeconds to
stride' = show $ unwrap (convertDuration stride :: Seconds)
in getJson $ "/time_range_t?from=" <> from' <> "&to=" <> to' <> "&stride=" <> stride'
let
from' = show $ datetimeToSeconds from
to' = show $ datetimeToSeconds to
stride' = show stride
in getJson $ "/time_range_n?from=" <> from' <> "&to=" <> to' <> "&stride=" <> stride'
do
result <- lmap AX.printError <$> AX.get ResponseFormat.json url
pure $ do
response <- result
o <- lmap show $ decodeJson response.body
ok <- lmap show $ o .: "Ok"
lmap show $ decodeJson ok
getJson