wip

examples/pdf-service.nrm

@@ -1,4 +1,4 @@
-@error("")
+@error
 union markdown-parse-error = symbol-error | syntax-error (text reason);
 
 type html = text;

src/Nirum/Targets/Python.hs

@@ -716,8 +716,10 @@ compileTypeDeclaration
     let methodMetadata' = commaNl methodMetadata
     dummyMethods <- mapM compileMethod methods'
     clientMethods <- mapM compileClientMethod methods'
+    methodErrorTypes <- mapM compileErrorType methods'
     let dummyMethods' = T.intercalate "\n\n" dummyMethods
         clientMethods' = T.intercalate "\n\n" clientMethods
+        methodErrorTypes' = T.intercalate "," methodErrorTypes
     insertStandardImport "json"
     insertThirdPartyImports [ ("nirum.constructs", ["name_dict_type"])
                             , ("nirum.deserialize", ["deserialize_meta"])
@@ -736,6 +738,7 @@ class $className(service_type):
     __nirum_method_names__ = name_dict_type([
         $methodNameMap
     ])
+    __nirum_error_types__ = dict([$methodErrorTypes'])
 
     {dummyMethods'}
 
@@ -751,6 +754,13 @@ class {className}_Client(client_type, $className):
     className = toClassName' name'
     commaNl :: [T.Text] -> T.Text
     commaNl = T.intercalate ",\n"
+    compileErrorType :: Method -> CodeGen Code
+    compileErrorType (Method mn _ _ me _) =
+        case me of
+            Just errorTypeExpression -> do
+                et <- compileTypeExpression src errorTypeExpression
+                return [qq|('{toAttributeName' mn}', $et)|]
+            Nothing -> return ""
     compileMethod :: Method -> CodeGen Code
     compileMethod (Method mName params rtype _etype _anno) = do
         let mName' = toAttributeName' mName