@@ -73,7 +73,8 @@ toJson dealiaser filePath (A.A region err) =
74 Json.object $
74 Json.object $
75 [ "file" .= filePath
75 [ "file" .= filePath
76− , "region" .= maybe region id maybeRegion
77+ , "subregion" .= maybeRegion
77 , "type" .= ("error" :: String)
78 , "type" .= ("error" :: String)
79 ++ additionalFields
80 ++ additionalFields