packetLogging :: Logging -> Logging
packetLogging logging =
  logging { loggingPacketSent = putStrLn . ("debug: >> " ++)
          , loggingPacketRecv = putStrLn . ("debug: << " ++)
          }
packetLogging :: Logging -> Logging
packetLogging logging =
  logging { loggingPacketSent = putStrLn . ("debug: >> " ++)
          , loggingPacketRecv = putStrLn . ("debug: << " ++)
          }
packetLogging logging =
  logging { loggingPacketSent = putStrLn . ("debug: >> " ++)
          , loggingPacketRecv = putStrLn . ("debug: << " ++)
          }