添加runServerAt。

src/Yue/Server.purs

@@ -1,12 +1,9 @@
-module Yue.Server ( ActionM
- , module S
+module Yue.Server ( module S
  , module R
  , module E
  , module Aff
  ) where
 
-import Yue.Internal.Type.Error (AppError)
-
 import Effect.Aff (Aff) as Aff
 import Effect.Aff.Class (class MonadAff, liftAff) as Aff
 import Yue.Internal.Type.Action (ActionT) as E
@@ -18,8 +15,5 @@ import Yue.Server.Header (header, header', setCode, setHeader, setJsonHeader, tr
 import Yue.Server.Param (tryParam, param, param') as E
 import Yue.Server.Query (query, query', queryList, queryList', tryQuery, tryQueryList) as E
 import Yue.Server.Router (delete, get, notFound, patch, post, put, route) as R
-import Yue.Server.Run (runServer) as S
+import Yue.Server.Run (runServer, runServerAt) as S
 import Yue.Server.Option (ServerOption) as S
-
--- | 一个简单的别名，也许没什么用处。
-type ActionM e = E.ActionT (AppError e) Aff.Aff

src/Yue/Server/Run.purs

@@ -1,4 +1,5 @@
 module Yue.Server.Run ( runServer
+ , runServerAt
  ) where
 
 import Prelude
@@ -63,3 +64,12 @@ runServer { addr, port } action callback = do
  , hostname: addr
  , port
  }
+
+runServerAt :: forall e. IsResponseError e
+ => Int
+ -> ActionT e Aff Unit
+ -> Effect Unit
+ -> Effect Unit
+runServerAt port = runServer { addr: "127.0.0.1"
+ , port
+ }