1
+ [%% raw "import Express from 'express'" ];
2
+
1
3
type complete ;
2
4
3
5
module Error = {
@@ -396,8 +398,8 @@ module Middleware = {
396
398
"limit": Js . nullable (int ),
397
399
"parameterLimit": Js . nullable (int )
398
400
};
399
- [@ bs . module "express " ] [@ bs . val ] external json_ : jsonOptions => t = "json" ;
400
- [@ bs . module "express " ] [@ bs . val ] external urlencoded_ : urlEncodedOptions => t = "urlencoded" ;
401
+ [@ bs . scope "Express " ] [@ bs . val ] external json_ : jsonOptions => t = "json" ;
402
+ [@ bs . scope "Express " ] [@ bs . val ] external urlencoded_ : urlEncodedOptions => t = "urlencoded" ;
401
403
let json = (~inflate= true , ~strict= true , ~limit=?, () ) =>
402
404
json_({
403
405
"inflate" : inflate |> Js . Boolean . to_js_boolean,
@@ -549,7 +551,7 @@ module Router = {
549
551
.
550
552
"caseSensitive": Js . boolean , "mergeParams": Js . boolean , "strict": Js . boolean
551
553
};
552
- [@ bs . module "express " ] [@ bs . val ] external make_ : routerArgs => t = "Router" ;
554
+ [@ bs . scope "Express " ] [@ bs . val ] external make_ : routerArgs => t = "Router" ;
553
555
let make = (~caseSensitive= false , ~mergeParams= false , ~strict= false , () ) =>
554
556
make_({
555
557
"caseSensitive" : caseSensitive |> Js . Boolean . to_js_boolean,
@@ -571,7 +573,8 @@ module App = {
571
573
let useRouter = (app, router) => Router . asMiddleware(router) |> use(app);
572
574
let useRouterOnPath = (app, ~path, router) =>
573
575
Router . asMiddleware(router) |> useOnPath(app, ~path);
574
- [@ bs . module ] external make : unit => t = "express" ;
576
+ [@ bs . val ] external make : unit => t = "Express" ;
577
+ let make = make;
575
578
576
579
/** * [make ()] creates an instance of the App class. */
577
580
external asMiddleware : t => Middleware . t = "% identity " ;
@@ -595,9 +598,9 @@ module Static = {
595
598
[@ bs . set ] external etag : (options , Js . boolean ) => unit = "" ;
596
599
/* ... add all the other options */
597
600
type t ;
598
- [@ bs . module "express" ] external make : (string , options ) => t = "static" ;
601
+ [@ bs . scope "Express" ] [ @ bs . val ] external make : (string , options ) => t = "static" ;
599
602
600
603
/** * [make directory] creates a static middleware for [directory] */
601
604
external asMiddleware : t => Middleware . t = "% identity " ;
602
605
/** * [asMiddleware static] casts [static] to a Middleware type */
603
- };
606
+ };
0 commit comments