From 35c653160a169d1e079a9227472ee68497527a08 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Tue, 2 Oct 2018 18:17:48 +0200 Subject: [PATCH] better error message on invalid portnumber --- src/Settings.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Settings.hs b/src/Settings.hs index 02421732f..c9fbcd7e3 100644 --- a/src/Settings.hs +++ b/src/Settings.hs @@ -193,7 +193,7 @@ deriveFromJSON instance FromJSON HaskellNet.PortNumber where parseJSON = withScientific "PortNumber" $ \sciNum -> case toBoundedInteger sciNum of Just int -> return $ fromIntegral (int :: Word16) - Nothing -> fail "Expected whole number to denote port" + Nothing -> fail "Expected whole number of plausible size to denote port" deriveFromJSON defaultOptions