leave :: LocationAction LocationView
leave = getCurrentUserId >>= getUserLocation >>= join
leave :: LocationAction LocationView
leave = getCurrentUserId >>= getUserLocation >>= join
leave = getCurrentUserId >>= getUserLocation >>= join