jbrechtel
9759a4c3a3
- Create scripts/build, scripts/test, scripts/run, scripts/install-hooks - Create git-hooks/pre-commit (auto-format staged .hs files) - Create git-hooks/pre-push (check formatting + hlint before push) - Handle git worktrees correctly in hook installation - Run fourmolu on all source files to fix existing formatting
21 lines
528 B
Haskell
21 lines
528 B
Haskell
-- | 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!"
|