Skip to content

Instantly share code, notes, and snippets.

@deque-blog
Created June 24, 2017 18:49
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
Star You must be signed in to star a gist
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