Commit f99ffe40 authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski

[static] use file server, this way index.html is served by default

parent 18fa0db7
Pipeline #741 failed with stage
......@@ -73,16 +73,12 @@ import Servant
import Servant.Auth as SA
import Servant.Auth.Server (AuthResult(..))
import Servant.Auth.Swagger ()
import Servant.HTML.Blaze (HTML)
--import Servant.Mock (mock)
--import Servant.Job.Server (WithCallbacks)
import Servant.Job.Async
import Servant.Static.TH.Internal.Server (fileTreeToServer)
import Servant.Static.TH.Internal.FileTree (fileTypeToFileTree, FileType(FileTypeFile))
import Servant.Swagger
import Servant.Swagger.UI
-- import Servant.API.Stream
import Text.Blaze.Html (Html)
--import Gargantext.API.Swagger
......
......@@ -19,9 +19,9 @@ Loads all static file for the front-end.
module Gargantext.API.FrontEnd where
import Servant
import Servant.Server.StaticFiles (serveDirectoryWebApp)
import Servant.Server.StaticFiles (serveDirectoryFileServer)
type FrontEndAPI = Raw
frontEndServer :: Server FrontEndAPI
frontEndServer = serveDirectoryWebApp "./purescript-gargantext/dist"
frontEndServer = serveDirectoryFileServer "./purescript-gargantext/dist"
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment