import Control.Arrow
import Control.Arrow.ArrowList
import qualified Data.Map as M
-import Network
+import Network.Socket
import qualified Network.HTTP.Lucu.Config as LC
import Rakka.Authorization
import Rakka.Page
}
-setupEnv :: FilePath -> PortNumber -> IO Environment
+setupEnv :: FilePath -> ServiceName -> IO Environment
setupEnv lsdir portNum
= do let lucuConf = LC.defaultConfig {
- LC.cnfServerPort = PortNumber portNum
+ LC.cnfServerPort = portNum
}
reposPath = lsdir </> "repos"
interpTable = mkInterpTable