abhin4v/link
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

(!! 0) = head

Browse Source
This commit is contained in:
Pascal Hartig 2016-06-29 11:11:51 +01:00 committed by GitHub
parent e8022b4e89
commit 098a991e28
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
app/Main.hs
View File

@ -6,6 +6,6 @@ import Link.Server
main :: IO () main :: IO ()
main = do main = do
port <- fmap (read . (!! 0)) getArgs port <- fmap (read . head) getArgs
runServer port runServer port