runBackendFile :: String -> Chan Packet -> IO ()
runBackendFile file ch = do
 pkt <- readChan ch
 appendFile file $ (B.unpack $ encode $ B.pack $ show pkt) ++ "\n"
runBackendFile :: String -> Chan Packet -> IO ()
runBackendFile file ch = do
 pkt <- readChan ch
 appendFile file $ (B.unpack $ encode $ B.pack $ show pkt) ++ "\n"
runBackendFile file ch = do
 pkt <- readChan ch
 appendFile file $ (B.unpack $ encode $ B.pack $ show pkt) ++ "\n"