1. Alvaro Videla
  2. redis-haskell

Commits

Alvaro Videla  committed 2569ad1

removed old code

  • Participants
  • Parent commits 5de9ac1
  • Branches default

Comments (0)

Files changed (1)

File Database/Redis/Protocol.hs

View file
 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