Commits

Alvaro Videla  committed 25945d0

reformated code

  • Participants
  • Parent commits 2569ad1

Comments (0)

Files changed (1)

File Database/Redis.hs

 import Database.Redis.Protocol(Server)
 
 class Redis a where
-  get :: (Key k, Serializable s) => 
-         a 
-      -> k 
-      -> IO (Maybe s)
-      
-  set :: (Key k, Serializable s) => 
-         a 
-      -> k 
-      -> s 
-      -> IO (Bool)
-      
-  setnx :: (Key k, Serializable s) => 
-           a 
-        -> k 
-        -> s 
-        -> IO (Bool)
-        
-  getset :: (Key k, Serializable s) => 
-            a 
-         -> k 
-         -> s 
-         -> IO (Maybe s)
-         
-  mget :: (Key k, Serializable s) => 
-          a 
-       -> [k] 
-       -> IO (Maybe [Maybe s])
-       
-  incr :: (Key k) => 
-          a 
-       -> k 
-       -> IO (Maybe Int)
-       
-  decr :: (Key k) => 
-          a 
-       -> k 
-       -> IO (Maybe Int)
-       
-  incrby :: (Key k) => 
-            a 
-         -> k 
-         -> Int 
-         -> 
-         IO (Maybe Int)
-         
-  decrby :: (Key k) => 
-            a 
-         -> k 
-         -> Int 
-         -> IO (Maybe Int)
-         
-  exists :: (Key k) => 
-            a 
-         -> k 
-         -> IO (Bool)
-         
-  del :: (Key k) => 
-         a 
-      -> k 
-      -> IO (Bool)
-      
-  rtype :: (Key k) => 
-           a 
-        -> k 
-        -> IO (Maybe String)
-        
-  keys :: a 
-       -> String 
-       -> IO (Maybe [String])
-       
+  
+  get :: (Key k, Serializable s) => a -> k -> IO (Maybe s)
+  set :: (Key k, Serializable s) => a -> k -> s -> IO (Bool)
+  setnx :: (Key k, Serializable s) => a -> k -> s -> IO (Bool)
+  getset :: (Key k, Serializable s) => a -> k -> s -> IO (Maybe s)
+  mget :: (Key k, Serializable s) => a -> [k] -> IO (Maybe [Maybe s])
+  incr :: (Key k) => a -> k -> IO (Maybe Int)
+  decr :: (Key k) => a -> k -> IO (Maybe Int)
+  incrby :: (Key k) => a -> k -> Int -> IO (Maybe Int)
+  decrby :: (Key k) => a -> k -> Int -> IO (Maybe Int)
+  exists :: (Key k) => a -> k -> IO (Bool)
+  del :: (Key k) => a -> k -> IO (Bool)
+  rtype :: (Key k) => a -> k -> IO (Maybe String)
+
+  keys :: a -> String -> IO (Maybe [String])
   randomkey :: a -> IO (Maybe String)
-            
-  rename :: (Key k) => 
-            a 
-         -> k 
-         -> k 
-         -> IO (Bool)
-         
-  renamenx :: (Key k) => 
-              a 
-           -> k 
-           -> k 
-           -> IO (Bool)
-  
+  rename :: (Key k) => a -> k -> k -> IO (Bool)
+  renamenx :: (Key k) => a -> k -> k -> IO (Bool)
   dbsize :: a -> IO (Maybe Int)
-  
   expire :: (Key k) => a -> k -> Int -> IO (Bool)
-         
   ttl    :: (Key k) => a -> k -> IO (Maybe Int)
          
   lrange :: (Key k, Serializable s) => a -> k -> Int -> Int -> IO (Maybe [Maybe s])