From ac71ab7bd7dded89202fde4a1f725dac32c7cd3c Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 5 Aug 2012 15:08:58 -0400 Subject: avoid head --- Utility/WebApp.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'Utility/WebApp.hs') diff --git a/Utility/WebApp.hs b/Utility/WebApp.hs index 971422e36..be186baa2 100644 --- a/Utility/WebApp.hs +++ b/Utility/WebApp.hs @@ -67,7 +67,9 @@ runWebApp app observer = do localSocket :: IO Socket localSocket = do addrs <- getAddrInfo (Just hints) (Just localhost) Nothing - go $ Prelude.head addrs + case addrs of + [] -> error "unable to bind to a local socket" + (addr:_) -> go addr where hints = defaultHints { addrFlags = [AI_ADDRCONFIG] -- cgit v1.2.3