diff --git a/app/Main.hs b/app/Main.hs
index 57a6814..d6b9abe 100644
--- 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