diff --git a/src/Main.hs b/src/Main.hs
index 3c6c206..290a047 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -66,7 +66,7 @@ forkQssChannel ::
 forkQssChannel chan = do
   ch1 <- newBoundedChan 50000
   ch2 <- newBoundedChan 50000
-  tid <- fork $ do
+  tid <- fork $ forever $ do
     x <- readChan chan
     writeChan ch1 x
     case x of