Fix foreign lookup strings
commitd8135a3073804bd230931ed0c5aa670f3be839d0
authorAndy Arvanitis <andyarvanitis@gmail.com>
dateThu 11 Jul 2019, 11:45 (7 years ago)
parent075cc5d
src/CodeGen/IL/Printer.hs+1−1
@@ -468,7 +468,7 @@ implFooterSource mn foreigns =
468468 " " <> initName name <> ".Do(func() {\n" <>
469469 " " <> valueName name <> " = " <>
470470 "SafeGet(" <> foreignDict <> ", " <>
471− (stringLiteral $ mkString name) <> ")\n" <>
471+ (stringLiteral . mkString $ runIdent foreign') <> ")\n" <>
472472 " })\n" <>
473473 " return " <> valueName name <> "\n" <>
474474 "}\n\n") <$> foreigns))) <>