@@ -473,7 +473,11 @@ addExport info (Module n c us as_ vs bs) (name, A.At region export) =
473 Result.ok $ Module n c newUnions as_ vs bs
473 Result.ok $ Module n c newUnions as_ vs bs
475 Can.ExportPort ->
475 Can.ExportPort ->
476− error "TODO"
476+ do tipe <- getType name info
477+ comment <- getComment region name info
479+ let newValues = Map.insert name (Value comment tipe) vs
480+ Result.ok $ Module n c us as_ newValues bs
479getComment :: R.Region -> N.Name -> Info -> Result i w Comment
483getComment :: R.Region -> N.Name -> Info -> Result i w Comment