fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

better error message on invalid portnumber

Browse Source
This commit is contained in:
Gregor Kleen 2018-10-02 18:17:48 +02:00
parent 68ddceb5f1
commit 35c653160a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Settings.hs
View File

@ -193,7 +193,7 @@ deriveFromJSON
instance FromJSON HaskellNet.PortNumber where instance FromJSON HaskellNet.PortNumber where
parseJSON = withScientific "PortNumber" $ \sciNum -> case toBoundedInteger sciNum of parseJSON = withScientific "PortNumber" $ \sciNum -> case toBoundedInteger sciNum of
Just int -> return $ fromIntegral (int :: Word16) 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 deriveFromJSON
defaultOptions defaultOptions