Created
October 19, 2019 17:07
-
-
Save Akii/258ce3cd7dd9b7e12076b0ea6d663058 to your computer and use it in GitHub Desktop.
Must look like magic for some folks
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
executeForm :: FormV2 -> Bool -> PageM [TagTree LBS.ByteString] | |
executeForm FormV2 {..} doSubmit = do | |
initRequest | |
personalPage personal | |
disabilitiesPage disabilities | |
outwardMeetingPoints <- executeOutwardConnection outwardTrainRide (isJust returnTrainRide) | |
returnMeetingPoints <- executeReturnConnection returnTrainRide | |
meetingPointsPage outwardMeetingPoints returnMeetingPoints | |
aidServicesPage aidServices | |
res <- getCurrentResponse | |
when doSubmit executeSubmitForm | |
return res |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment