writeMsg :: Socket -> Consumer Command IO r
writeMsg sock = P.map showCommand >-> logP >-> toSocket sock
writeMsg :: Socket -> Consumer Command IO r
writeMsg sock = P.map showCommand >-> logP >-> toSocket sock
writeMsg sock = P.map showCommand >-> logP >-> toSocket sock