@@ -1,10 +1,11 @@
1module Test.OpenAPIValidation (validate) where
1module Test.OpenAPIValidation (validate) where
3import Foreign (Foreign)
4import Foreign (Foreign)
4import Yoga.HTTP.API.Route.OpenAPI (OpenAPISpec)
5import Yoga.HTTP.API.Route.OpenAPI (OpenAPISpec)
5−import Yoga.JSON (writeImpl)
6+import Yoga.JSON (write)
7foreign import validateImpl :: Foreign -> { errors :: Array { message :: String } }
8foreign import validateImpl :: Foreign -> { errors :: Array { message :: String } }
9validate :: OpenAPISpec -> { errors :: Array { message :: String } }
10validate :: OpenAPISpec -> { errors :: Array { message :: String } }
10−validate spec = validateImpl (writeImpl spec)
11+validate = validateImpl <<< write