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 - -