Start9/start-os
2
0
Fork 0
mirror of https://github.com/Start9Labs/start-os.git synced 2026-03-31 04:23:40 +00:00
Code Issues Packages Projects Releases Wiki Activity

agent: cleanup

Browse Source
This commit is contained in:
Aaron Greenspan
2021-01-14 17:26:09 -07:00
committed by Aiden McClelland
parent b908967ac4
commit a122c4a058
2 changed files with 1 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
agent/src/Handler/V0.hs
View File

@@ -56,7 +56,7 @@ getServerR = handleS9ErrT $ do
ssh <- readFromPath settings sshKeysFilePath >>= parseSshKeys ssh <- readFromPath settings sshKeysFilePath >>= parseSshKeys
wifi <- WpaSupplicant.runWlan0 $ liftA2 WifiList WpaSupplicant.getCurrentNetwork WpaSupplicant.listNetworks wifi <- WpaSupplicant.runWlan0 $ liftA2 WifiList WpaSupplicant.getCurrentNetwork WpaSupplicant.listNetworks
specs <- getSpecs settings specs <- getSpecs settings
welcomeAck <- fmap isJust . lift . runDB . Persist.get $ WelcomeAckKey agentVersion welcomeAck <- fmap isJust . lift . runDB . Persist.get $ WelcomeAckKey agentVersion
let sid = T.drop 7 $ specsNetworkId specs let sid = T.drop 7 $ specsNetworkId specs

2
agent/src/Lib/Types/Emver/Orphans.hs
View File

@@ -46,5 +46,3 @@ instance PathPiece Version where
instance PathPiece VersionRange where instance PathPiece VersionRange where
toPathPiece = show toPathPiece = show
fromPathPiece = hush . Atto.parseOnly parseRange fromPathPiece = hush . Atto.parseOnly parseRange