2015-09-09 00:23:47 +05:30
|
|
|
module Main where
|
|
|
|
|
|
|
|
|
|
import System.Environment (getArgs)
|
|
|
|
|
|
2015-09-10 02:55:29 +05:30
|
|
|
import Link.Server
|
|
|
|
|
|
2015-09-09 00:23:47 +05:30
|
|
|
main :: IO ()
|
|
|
|
|
main = do
|
2016-06-29 15:41:51 +05:30
|
|
|
port <- fmap (read . head) getArgs
|
2015-09-09 00:23:47 +05:30
|
|
|
runServer port
|
|
|
|
|
|
