example.hs

action CreateBidAction = do
    let bid = newRecord @Bid
    bid
        |> buildBid
        >>= ifValid \case
            Left bid -> render NewView { .. }
            Right bid -> do
                bid <- bid |> createRecord

                _ <- forkIO $ do 
                    -- How can Auto refresh get triggered about this new record?
                    newBid <- newRecord @Bid |> createRecord
                    pure ()

                setSuccessMessage "Bid created"
                redirectTo (ShowBidAction (get #id bid))