gistfile1.hs

-- Utils
conn :: IO Server
conn = Single.connect "192.168.0.33" 1111

dconn x = Single.disconnect x

m_set :: Server -> String -> String -> IO Bool
m_set ss x y = do
  Network.Memcache.set ss x y

m_get :: Server -> String -> IO (Maybe String)
m_get ss x = do
  Network.Memcache.get ss x

{-
ghci> lx <- conn
ghci> m_get lx "foo"
Just "3"
ghci> m_get lx "ox"
-}