Merge pull request #1 from passy/patch-1

(!! 0) = head
2016-06-30 11:37:02 +05:30 · 2016-06-30 11:37:02 +05:30 · 69a04ab75e
commit 69a04ab75e
parent e8022b4e89 098a991e28
1 changed files with 1 additions and 1 deletions
--- a/app/Main.hs
+++ b/app/Main.hs
@ -6,6 +6,6 @@ import Link.Server
 main :: IO ()
 main = do
-  port <- fmap (read . (!! 0)) getArgs
+  port <- fmap (read . head) getArgs
  runServer port