@@ -468,7 +468,7 @@ implFooterSource mn foreigns =
468 " " <> initName name <> ".Do(func() {\n" <>
468 " " <> initName name <> ".Do(func() {\n" <>
469 " " <> valueName name <> " = " <>
469 " " <> valueName name <> " = " <>
470 "SafeGet(" <> foreignDict <> ", " <>
470 "SafeGet(" <> foreignDict <> ", " <>
471− (stringLiteral $ mkString name) <> ")\n" <>
471+ (stringLiteral . mkString $ runIdent foreign') <> ")\n" <>
472 " })\n" <>
472 " })\n" <>
473 " return " <> valueName name <> "\n" <>
473 " return " <> valueName name <> "\n" <>
474 "}\n\n") <$> foreigns))) <>
474 "}\n\n") <$> foreigns))) <>