(!! 0) = head

2016-06-29 11:11:51 +01:00 · 2016-06-29 11:11:51 +01:00 · 098a991e28
parent e8022b4e89
commit 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