Strict exceptions compat

nat_mapper/tinyupnp.nim

@@ -138,15 +138,22 @@ proc soapRequest(gateway: TUpnpGateway, actionName: string, args = initTable[str
   let request = generateSoapEnveloppe(actionName, gateway.serviceType, args)
   result = await postSoap(gateway.controlUri, request, gateway.serviceType & "#" & actionName)
 
+  result.xmlTree =
     try:
-    result.xmlTree = parseXml(result.body)["s:Body"]
+      parseXml(result.body)
+    except XmlError as exc:
+      trace "Cannot parse response XML", resp = result.body
+      return result
+    except Exception as exc:
+      #borken exception tracking on parseXml
+      doAssert false
+      nil
+  result.xmlTree = result.xmlTree["s:Body"]
   if not isNil(result.xmlTree):
     result.xmlTree = result.xmlTree[0]
 
     for child in result.xmlTree:
       result.response[child.tag.toLower()] = child.getStr()
-  except XmlError as exc:
-    trace "Cannot parse response XML", resp = result.body
   return result
 
 # UPNP
@@ -215,6 +222,10 @@ proc tryGatewayLocation(tupnp: TUpnpSession, location: Uri) {.async.} =
       except XmlError as exc:
         debug "Can't decode XML from location", err = exc.msg
         return
+      except Exception as exc:
+        #borken exception tracking on parseXml
+        doAssert false
+        nil
 
   for service in pageXml.getAllRecur("service"):