ioLogging :: Logging -> Logging
ioLogging logging =
  logging { loggingIOSent = putStrLn . ("io: >> " ++) . show
          , loggingIORecv = \hdr -> putStrLn . (("io: << " ++ show hdr ++ " ") ++) . show
          }
ioLogging :: Logging -> Logging
ioLogging logging =
  logging { loggingIOSent = putStrLn . ("io: >> " ++) . show
          , loggingIORecv = \hdr -> putStrLn . (("io: << " ++ show hdr ++ " ") ++) . show
          }
ioLogging logging =
  logging { loggingIOSent = putStrLn . ("io: >> " ++) . show
          , loggingIORecv = \hdr -> putStrLn . (("io: << " ++ show hdr ++ " ") ++) . show
          }