mirror of
https://github.com/urbit/shrub.git
synced 2024-12-19 16:51:42 +03:00
34 lines
876 B
Haskell
34 lines
876 B
Haskell
{-|
|
|
Scry helpers
|
|
-}
|
|
|
|
module Urbit.King.Scry
|
|
( scryNow
|
|
, module Urbit.Vere.Pier.Types
|
|
)
|
|
where
|
|
|
|
import Urbit.Prelude
|
|
import Urbit.Vere.Serf.Types
|
|
|
|
import Urbit.Arvo.Common (Desk)
|
|
import Urbit.Vere.Pier.Types (ScryFunc)
|
|
|
|
scryNow :: forall e n
|
|
. (HasLogFunc e, FromNoun n)
|
|
=> ScryFunc
|
|
-> Term -- ^ vane + care as two-letter string
|
|
-> Desk -- ^ desk in scry path
|
|
-> [Text] -- ^ resource path to scry for
|
|
-> RIO e (Maybe n)
|
|
scryNow scry vare desk path =
|
|
io (scry Nothing (EachNo $ DemiOnce vare desk (Path $ MkKnot <$> path)))
|
|
>>= \case
|
|
Just ("omen", fromNoun @(Path, Term, n) -> Just (_,_,v)) -> pure $ Just v
|
|
Just (_, fromNoun @n -> Just v) -> pure $ Just v
|
|
Just (_, n) -> do
|
|
logError $ displayShow ("uncanny scry result", vare, path, n)
|
|
pure Nothing
|
|
Nothing -> pure Nothing
|
|
|