From a122c4a058fec37d8ec2489eb61c6762e150538c Mon Sep 17 00:00:00 2001 From: Aaron Greenspan Date: Thu, 14 Jan 2021 17:26:09 -0700 Subject: [PATCH] agent: cleanup --- agent/src/Handler/V0.hs | 2 +- agent/src/Lib/Types/Emver/Orphans.hs | 2 -- 2 files changed, 1 insertion(+), 3 deletions(-) diff --git a/agent/src/Handler/V0.hs b/agent/src/Handler/V0.hs index aab2da4da..3f5757e49 100644 --- a/agent/src/Handler/V0.hs +++ b/agent/src/Handler/V0.hs @@ -56,7 +56,7 @@ getServerR = handleS9ErrT $ do ssh <- readFromPath settings sshKeysFilePath >>= parseSshKeys wifi <- WpaSupplicant.runWlan0 $ liftA2 WifiList WpaSupplicant.getCurrentNetwork WpaSupplicant.listNetworks 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 diff --git a/agent/src/Lib/Types/Emver/Orphans.hs b/agent/src/Lib/Types/Emver/Orphans.hs index 66a9f9545..caee49c8f 100644 --- a/agent/src/Lib/Types/Emver/Orphans.hs +++ b/agent/src/Lib/Types/Emver/Orphans.hs @@ -46,5 +46,3 @@ instance PathPiece Version where instance PathPiece VersionRange where toPathPiece = show fromPathPiece = hush . Atto.parseOnly parseRange - -