Skip to content

Instantly share code, notes, and snippets.

View paul-r-ml's full-sized avatar

paul-r-ml

4 followers · 4 following
View GitHub Profile
@paul-r-ml
paul-r-ml / RWH_TCP_Syslog_Server.hs
Created October 16, 2010 11:03
import Network.Socket
import Control.Concurrent
import qualified System.IO as IO
type HandlerFunc = SockAddr -> String -> IO ()
serveLog :: String -- ^ Port number or name; 514 is default
-> HandlerFunc -- ^ Function to handle incoming messages
-> IO ()
serveLog port handlerfunc = withSocketsDo $
@paul-r-ml
paul-r-ml / gist:626655
Created October 14, 2010 17:52
We couldn’t find that file to show.
@paul-r-ml
paul-r-ml / gist:626653
Created October 14, 2010 17:50
We couldn’t find that file to show.
@paul-r-ml
paul-r-ml / foobar is cool.ml
Created October 6, 2010 19:16
Youpi