Route {
    routePath = [~{intercalate ", " (map trPathPiece (routePath r))}],
    routeHandlers = [
~{indent 8 $ intercalate ",\n" (map trHandler (routeHandlers r))}
    ]
}