OneOf? · Issue #68 · purescript/purescript-foreign · GitHub
Skip to content

OneOf? #68

Open
Open

Description

@justinwoo

Feels like we probably already have a oneOf function that can make sure that not all branches are evaluated at once (to ensure efficient as-needed parsing), since using alt naively can lead to really really slow decoding, but I honestly don't know where it is. Is there something I'm missing that already implements this?:

oneOf :: forall f a
   . Foldable f
  => f (Foreign -> F a)
  -> Foreign
  -> F a
oneOf f js = go (fromFoldable f) js
  where
    go (read : xs) js = do
      case runExcept (read js) of
        Right pv -> pure pv
        Left e -> do
          case runExcept (go xs js) of
            Right pv' -> pure pv'
            Left e' -> throwError (e <> e')
    go Nil _ = do
      throwError $ pure (ForeignError "No more parsers to attempt in oneOf")

If not, I could PR this, but feels like it probably exists as a simple combination of some operators.

Activity

  1. MonoidMusician commented on Nov 18, 2017

    @MonoidMusician

    This looks good! Perhaps you want to use foldl (or even foldl1?) instead, to avoid copying the list?

    go prev next = case runExcept prev of
      Left e -> case runExcept (next js) of
        Left e' -> throwError (e <> e')
        r -> r
      r -> r
    

    But yeah, it's hard ... we need laziness dreamy sigh

  2. paf31 commented on Nov 18, 2017

    @paf31
    Contributor

    If we had a lazy Either, we could use regular oneOf, right?

  3. MonoidMusician commented on Nov 18, 2017

    @MonoidMusician

    newtype Decoder = Decoder (Foreign -> F a) would probably work – just making the return type lazy would be hard to use, I think.

  4. paf31 commented on Nov 18, 2017

    @paf31
    Contributor

    Decoder does sound useful anyway.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment

Metadata

Metadata

Assignees

No one assigned

    Labels

    status: needs more infoThis issue needs more info before any action can be done.

    Type

    No type

    Projects

    No projects

      Milestone

      No milestone

      Relationships

      None yet

      Development

      No branches or pull requests

      Issue actions