Merge pull request #53 from anton-k/api-tree-normal-form

Api tree normal form

mig-extra/mig-extra.cabal

@@ -59,6 +59,7 @@ library
     , bytestring
     , case-insensitive
     , containers
+    , data-default
     , exceptions
     , extra
     , http-api-data

mig-extra/package.yaml

@@ -31,6 +31,7 @@ default-extensions:
 
 dependencies:
 - base >= 4.7 && < 5
+- data-default
 - mig
 - http-api-data
 - blaze-html

mig-extra/src/Mig/Extra/Server/Common.hs

@@ -120,6 +120,7 @@ import Mig.Core hiding (
 
 import Control.Monad.IO.Class as X
 import Data.Aeson as X (FromJSON (..), ToJSON (..))
+import Data.Default as X
 import Data.OpenApi as X (OpenApi, ToParamSchema (..), ToSchema (..))
 import Data.Text as X (Text)
 import GHC.Generics as X (Generic)

mig-server/src/Mig/Server/Warp.hs

@@ -7,15 +7,14 @@ module Mig.Server.Warp (
   CacheConfig (..),
 ) where
 
+import Data.Default
 import Mig.Core
 import Mig.Core.Server.Cache
 import Mig.Server.Wai
 import Network.Wai.Handler.Warp qualified as Warp
 
 runServer :: Int -> Server IO -> IO ()
-runServer port server = Warp.run port (toApplication config server)
-  where
-    config = ServerConfig{maxBodySize = Nothing, cache = Nothing, findRoute = TreeFinder}
+runServer port server = Warp.run port (toApplication def server)
 
 runServer' :: ServerConfig -> Int -> Server IO -> IO ()
 runServer' config port server = Warp.run port (toApplication config server)

mig-wai/src/Mig/Server/Wai.hs

@@ -34,10 +34,14 @@ data ServerConfig = ServerConfig
   }
 
 instance Default ServerConfig where
-  def = ServerConfig Nothing Nothing TreeFinder
+  def = ServerConfig Nothing Nothing PlainFinder
 
 -- | Algorithm to find route handlers by path
-data FindRouteType = TreeFinder | PlainFinder
+data FindRouteType
+  = -- | converts api to tree-like structure (prefer it for servers with many routes)
+    TreeFinder
+  | -- | no optimization (prefer it for small servers)
+    PlainFinder
 
 toApplication :: ServerConfig -> Server IO -> Wai.Application
 toApplication config = case config.cache of