tls logging

example

```haskell
module Main where
import Control.Monad (forever)
import Control.Monad.IO.Class (liftIO)
import qualified Data.ByteString.Char8 as BS
import qualified Data.ByteString.Lazy.Char8 as BL
import Data.String (fromString)
import Network.TLS (defaultLogging,Logging(..))
import Network.Wai.Application.Static (staticApp, defaultWebAppSettings, defaultFileServerSettings)
import Network.Wai.Handler.Warp (runSettings, defaultSettings, settingsIntercept, settingsHost, settingsPort)
import Network.Wai.Handler.WarpTLS (TLSSettings(..), runTLS)
import Network.Wai.Handler.WebSockets (intercept)
import qualified Network.WebSockets as WS

pLogging :: Logging
pLogging = defaultLogging
           { loggingPacketSent = putStrLn . ("debug: >> " ++)
           , loggingPacketRecv = putStrLn . ("debug: << " ++)
           }

loop :: WS.Request -> WS.WebSockets WS.Hybi10 ()
loop r' = WS.acceptRequest r' >> forever (WS.receiveData >>= liftIO . BS.writeFile "ws.png")

main :: IO ()
main = runTLS defaultTLS {debug=pLogging} 
       defaultSettings
       { settingsPort = 9160
       , settingsIntercept = intercept loop
       } $ staticApp (defaultFileServerSettings $ fromString ".")
```