(status ^? _Pending <|> status ^? _Accepted)

status ^? (_Pending <> _Accepted)

class Monad m <= Hub m where
  connect ∷ ∀ f. User → Handlers f → m (EventSources f m)

instance hubHalogenM ∷ Hub m ⇒ Hub (HalogenM s f g p o m) where
  connect u = lift <<< connect u

Could not match type
    m6
  with type
    HalogenM s1 f2 g3 p4 o5 m6

while trying to match type EventSource f00 m6
  with type EventSource f00 (HalogenM s1 f2 g3 p4 o5 m6)
while checking that expression (compose lift) (connect u)
  has type { onClose :: CloseEvent -> Maybe (f00 SubscribeStatus)
           , onMessage :: Either ParseError Message -> Maybe (f00 SubscribeStatus)
           }
           -> HalogenM s1 f2 g3 p4 o5 m6
                { onClose :: EventSource f00 (HalogenM s1 f2 g3 p4 o5 m6)
                , onMessage :: EventSource f00 (HalogenM s1 f2 g3 p4 o5 m6)
                }
in value declaration hubHalogenM

type Assets a =
  { logo ∷ a
  , icons ∷ Icons a
  }

  Could not match type

    r4

  with type

    r5


while trying to match type IProp r4
  with type IProp r5
while solving type class constraint

  Prim.Row.Cons "acUnit"
                (Array (IProp t0 t1) -> HTML t2 t1)
                t3
                ( acUnit :: forall p r i. Array (IProp r i) -> HTML p i

type HTMLIcon p r i = Array (IProp r i) → HTML p i

icons
  ∷ ∀ row xs row' p r i
  . RowToList row xs
  ⇒ MapRecord xs row String (HTMLIcon p r i) () row'
  ⇒ Icons (HTMLIcon p r i)
icons = mapRecord icon assets.icons

f :: Event (List Int) -> Event Int