Start9/start-os
2
0
Fork 0
mirror of https://github.com/Start9Labs/start-os.git synced 2026-03-30 12:11:56 +00:00
Code Issues Packages Projects Releases Wiki Activity

fixes custom parse

Browse Source
This commit is contained in:
Keagan McClelland
2021-03-05 12:40:27 -07:00
parent adab9e7fca
commit e37db33d62
2 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
agent/src/Lib/External/AppManifest.hs vendored
View File

@@ -137,7 +137,7 @@ instance FromJSON LanConfiguration where
standard =
withText "Standard Lan" \t -> if t == "standard" then pure Standard else fail "Not Standard Lan Conf"
custom = withObject "Custom Lan" $ \o -> do
Custom <$> o .: "port"
Custom <$> (o .: "custom" >>= (.: "port"))
data PortMapEntry = PortMapEntry
{ portMapEntryInternal :: Word16
, portMapEntryTor :: Word16