11 lines
156 B
Haskell
11 lines
156 B
Haskell
module Main where
|
|
|
|
import Link.Server
|
|
import System.Environment (getArgs)
|
|
|
|
main :: IO ()
|
|
main = do
|
|
port <- fmap (read . (!! 0)) getArgs
|
|
runServer port
|
|
|