Build fixes for GHC 8.6.1

1 files changed, 3 insertions, 1 deletions

diff --git a/OnionRouter.hs b/OnionRouter.hs
index b11a0bf6..f1b0b41c 100644
--- a/OnionRouter.hs
+++ b/OnionRouter.hs
@@ -286,7 +286,9 @@ handleEvent getnodes or e@(BuildRoute (RouteId rid)) = do
         ts <- selectTrampolines or
         join . atomically $ do
         drg <- readTVar (onionDRG or)
-        [av,bv,cv] <- sequence $ replicate 3 (newTVar Nothing)
+        av <- newTVar Nothing
+        bv <- newTVar Nothing
+        cv <- newTVar Nothing
         let (getr, drg') = withDRG drg $ do
                 asec <- generateSecretKey -- Three aliases
                 bsec <- generateSecretKey