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

agent: remove redundant fn

Browse Source
This commit is contained in:
Aaron Greenspan
2021-01-12 11:51:47 -07:00
committed by Aiden McClelland
parent b4d1db7e11
commit b80634df83
2 changed files with 3 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -62,8 +62,8 @@ data AppManifest where
, appManifestDependencies :: HM.HashMap AppId VersionRange
} -> AppManifest
hasUi :: AppManifest -> Bool
hasUi AppManifest {..} = isJust $ HM.lookup 80 appManifestPortMapping
uiAvailable :: AppManifest -> Bool
uiAvailable AppManifest {..} = isJust $ HM.lookup 80 appManifestPortMapping
instance FromJSON AppManifest where
parseJSON = withObject "App Manifest " $ \o -> do
@@ -89,7 +89,3 @@ getAppManifest appId = do
base <- ask @"filesystemBase"
ExceptT $ first (ManifestParseE appId) <$> liftIO
(Yaml.decodeFileEither . toS $ (appMgrAppPath appId <> "manifest.yaml") `relativeTo` base)
uiAvailable :: AppManifest -> Bool
uiAvailable = \case
AppManifest { appManifestPortMapping } -> elem 80 (HM.keys appManifestPortMapping)