Nurse.hs

    action NewNurseAction = do
        pinCode <- randomRIO (1000, 9999)
        let nurse = newRecord @Nurse |> set #pinCode pinCode
        render NewView { .. }

    action ShowNurseAction { nurseId } = do
        nurse <- fetch nurseId
        refNurseToHealthCenters <- query @RefNurseToHealthCenter
            |> filterWhere (#nurseId, nurse.id)
            |> fetch