OpenAPI (#251): modules

AshleyYakeley · Apr 19, 2024 · acbb52c · acbb52c
1 parent 431a611
commit acbb52c
Show file tree

Hide file tree

Showing 5 changed files with 21 additions and 4 deletions.
diff --git a/Pinafore/pinafore-webapi/lib/Pinafore/WebAPI.hs b/Pinafore/pinafore-webapi/lib/Pinafore/WebAPI.hs
@@ -3,6 +3,7 @@ module Pinafore.WebAPI
     ) where
 
 import Pinafore.Language
+import Pinafore.WebAPI.OpenAPI
 
 webAPIImporters :: [Importer]
-webAPIImporters = []
+webAPIImporters = [openAPIImporter]
diff --git a/Pinafore/pinafore-webapi/lib/Pinafore/WebAPI/Fetch.hs b/Pinafore/pinafore-webapi/lib/Pinafore/WebAPI/Fetch.hs
@@ -0,0 +1 @@
+module Pinafore.WebAPI.Fetch where
diff --git a/Pinafore/pinafore-webapi/lib/Pinafore/WebAPI/OpenAPI.hs b/Pinafore/pinafore-webapi/lib/Pinafore/WebAPI/OpenAPI.hs
@@ -0,0 +1,13 @@
+module Pinafore.WebAPI.OpenAPI
+    ( openAPIImporter
+    ) where
+
+import Pinafore.Language
+import Pinafore.WebAPI.Fetch ()
+import Shapes
+
+importOpenAPI :: Text -> ResultT Text IO (LibraryContents ())
+importOpenAPI _t = liftInner $ FailureResult "NYI"
+
+openAPIImporter :: Importer
+openAPIImporter = MkImporter "openapi" importOpenAPI
diff --git a/Pinafore/pinafore-webapi/package.yaml b/Pinafore/pinafore-webapi/package.yaml
@@ -13,3 +13,6 @@ library:
       - pinafore-language
     exposed-modules:
       - Pinafore.WebAPI
+    other-modules:
+      - Pinafore.WebAPI.Fetch
+      - Pinafore.WebAPI.OpenAPI
diff --git a/Pinafore/pinafore-webapi/pinafore-webapi.cabal b/Pinafore/pinafore-webapi/pinafore-webapi.cabal
@@ -17,9 +17,8 @@ library
   exposed-modules:
       Pinafore.WebAPI
   other-modules:
-      Paths_pinafore_webapi
-  autogen-modules:
-      Paths_pinafore_webapi
+      Pinafore.WebAPI.Fetch
+      Pinafore.WebAPI.OpenAPI
   hs-source-dirs:
       lib
   default-extensions: