Commits

Alvaro Videla committed 2569ad1

removed old code

Comments (0)

Files changed (1)

Database/Redis/Protocol.hs

 disconnect :: Server -> IO ()
 disconnect = hClose . sHandle
 
-getOneValue :: Handle -> IO (Maybe String)
-getOneValue handle = do
-  s <- hGetNetLn handle
-  case words s of
-    ["VALUE", _, _, sbytes] -> do
-      let count = read sbytes
-      val <- sequence $ take count (repeat $ hGetChar handle)
-      return $ Just val
-    _ -> return Nothing
-
 --Redis specific commands: 
 sendBulkCommand :: (Key k, Serializable s) => String -> Handle -> k -> s -> IO ()
 sendBulkCommand action handle key val = do