API: Serve static files

src/lib/Wst/Cli.hs

@@ -8,6 +8,7 @@ import Control.Monad.IO.Class (MonadIO (..))
 import Convex.Wallet.Operator (OperatorConfigSigning)
 import Convex.Wallet.Operator qualified as Operator
 import Data.Functor.Identity (Identity)
+import Data.Maybe (fromMaybe)
 import Data.Proxy (Proxy)
 import Data.String (IsString (..))
 import Options.Applicative (customExecParser, disambiguate, helper, idm, info,
@@ -55,6 +56,6 @@ deploy config = do
   pure ()
 
 startServer :: (MonadIO m, MonadLogger m) => Env.CombinedEnv Proxy Identity Proxy Identity w -> Server.ServerArgs -> m ()
-startServer env' serverArgs@ServerArgs{saPort} = do
-  logInfo $ "starting server" :# ["port" .= saPort]
+startServer env' serverArgs@ServerArgs{saPort, saStaticFiles} = do
+  logInfo $ "starting server" :# ["port" .= saPort, "static_files" .= fromMaybe "(no static files)" saStaticFiles]
   liftIO (Server.runServer env' serverArgs)

src/lib/Wst/Server.hs

@@ -6,6 +6,7 @@
 module Wst.Server(
   runServer,
   ServerArgs(..),
+  CombinedAPI,
   defaultServerArgs
   ) where
 
@@ -19,8 +20,9 @@ import Data.Data (Proxy (..))
 import Network.Wai.Handler.Warp qualified as Warp
 import PlutusTx.Prelude qualified as P
 import Servant (Server, ServerT)
-import Servant.API (NoContent (..), (:<|>) (..))
+import Servant.API (NoContent (..), Raw, (:<|>) (..))
 import Servant.Server (hoistServer, serve)
+import Servant.Server.StaticFiles (serveDirectoryWebApp)
 import SmartTokens.Types.PTokenDirectory (blnKey)
 import Wst.App (WstApp, runWstAppServant)
 import Wst.AppError (AppError)
@@ -34,6 +36,12 @@ import Wst.Server.Types (APIInEra, AddToBlacklistArgs (..), BuildTxAPI,
                          TextEnvelopeJSON (..),
                          TransferProgrammableTokenArgs (..))
 
+-- | Rest API combined with a Raw endpoint
+--   for static files
+type CombinedAPI =
+  APIInEra
+  :<|> Raw
+
 data ServerArgs =
   ServerArgs
     { saPort :: !Int
@@ -49,8 +57,10 @@ defaultServerArgs =
     }
 
 runServer :: (Env.HasRuntimeEnv env, Env.HasDirectoryEnv env) => env -> ServerArgs -> IO ()
-runServer env ServerArgs{saPort} = do
-  let app  = serve (Proxy @APIInEra) (server env)
+runServer env ServerArgs{saPort, saStaticFiles} = do
+  let app  = case saStaticFiles of
+        Nothing -> serve (Proxy @APIInEra) (server env)
+        Just fp -> serve (Proxy @CombinedAPI) (server env :<|> serveDirectoryWebApp fp)
       port = saPort
   Warp.run port app