From 098a991e282590ba3034b036d30207af68d6bf43 Mon Sep 17 00:00:00 2001 From: Pascal Hartig Date: Wed, 29 Jun 2016 11:11:51 +0100 Subject: [PATCH] (!! 0) = head --- app/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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