@@ -444,8 +444,8 @@ interfaceSource mn exports foreigns =
444 identToCpp foreign' <>
444 identToCpp foreign' <>
445 "() -> " <> varDecl <> " { " <>
445 "() -> " <> varDecl <> " { " <>
446 dispatchOnceBegin <>
446 dispatchOnceBegin <>
447− foreignDict <> "()[" <>
447+ foreignDict <> "().at(" <>
448− (stringLiteral . mkString $ runIdent foreign') <> "]; " <>
448+ (stringLiteral . mkString $ runIdent foreign') <> "); " <>
449 dispatchOnceEnd <>
449 dispatchOnceEnd <>
450 " };\n") <$> foreigns) <>
450 " };\n") <$> foreigns) <>