Haskell project

src/Roux.hs

@@ -0,0 +1,21 @@
+{- | Top-level re-exports and application setup for Roux.
+-}
+module Roux
+    ( app
+    , module X
+    ) where
+
+import qualified Network.HTTP.Types as HTTP
+import qualified Network.Wai as Wai
+
+import Roux.Types as X
+
+-- | Build the WAI 'Application' given a path to the recipe directory.
+app :: FilePath -> IO Wai.Application
+app _recipeDir =
+    pure $ \_request respond ->
+        respond $
+            Wai.responseLBS
+                HTTP.status200
+                [("Content-Type", "text/plain")]
+                "Hello from Roux!"

src/Roux/Types.hs

@@ -0,0 +1,9 @@
+{- | Core types for Roux.
+-}
+module Roux.Types
+    ( -- * Types
+      RecipeDir (..)
+    ) where
+
+-- | Path to the directory containing Cooklang recipe files.
+newtype RecipeDir = RecipeDir FilePath