Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
data ReservationExpr a where
SearchTrain :: DateTime -> ReservationExpr [TrainId]
GetTypology :: TrainId -> ReservationExpr (Maybe TrainTypology)
Reserve :: Reservation -> ReservationExpr (Maybe Reservation)
Log :: String -> ReservationExpr ()
Pure :: ta -> ReservationExpr ta
Bind :: ReservationExpr ta -> (ta -> ReservationExpr tb) -> ReservationExpr tb
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment