@@ -66,7 +66,7 @@ isDBChar ch = (ch >= 'A' && ch <= 'Z') || (ch >= 'a' && ch <= 'z') isFirstDocChar = isDBChar isDocChar ch = (ch >= 'A' && ch <='Z') || (ch >= 'a' && ch <= 'z') - || (ch >= '0' && ch <= '9') || ch `elem` "@._" + || (ch >= '0' && ch <= '9') || ch `elem` "-@._" isDBString :: String -> Bool isDBString [] = False src/Database/CouchDB.hs @@ -271,7 +271,7 @@ queryView :: (JSON a) -> CouchMonad [(JSString, a)] queryView db viewSet view args = do let args' = map (\(k,v) -> (k,encode v)) args - let url' = concat [db,"/_view/",viewSet,"/",view] + let url' = concat [db, viewSet, "/_view/", view] r <- request url' args' GET [] "" case rspCode r of (2,0,0) -> do @@ -289,7 +289,7 @@ queryViewKeys :: String -- ^database -> CouchMonad [String] queryViewKeys db viewSet view args = do let args' = map (\(k,v) -> (k,encode v)) args - let url' = concat [db,"/_view/",viewSet,"/",view] + let url' = concat [db, viewSet, "/_view/", view] r <- request url' args' GET [] "" case rspCode r of (2,0,0) -> do src/Database/CouchDB/Unsafe.hs 171217e0567c02edb32539331ea2f25b9f3acb7e Arjun Guha arjun@cs.brown.edu http://github.com/arjunguha/haskell-couchdb/commit/a6acc600bb2abe6de5d7a157a88dc517bdc09aa4 a6acc600bb2abe6de5d7a157a88dc517bdc09aa4 2009-06-05T12:35:29-07:00 2009-06-05T12:35:29-07:00 for CouchDB 0.10, patch by Henry Laxen 9bfdc1b5f107dc7b701f9c1ecdc73ba574c05139 Arjun Guha arjun@cs.brown.edu