@@ -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 bdc40c3fcb64b5806f4f12bb1b5e4117633b15f5 a6acc600bb2abe6de5d7a157a88dc517bdc09aa4 Arjun Guha arjun@cs.brown.edu http://github.com/arjunguha/haskell-couchdb/commit/d5f9a75d93554d24297f3baa8b93c9b340c657b8 d5f9a75d93554d24297f3baa8b93c9b340c657b8 2009-06-21T15:33:07-07:00 2009-06-21T15:33:07-07:00 Merge branch 'master' of git@github.com:arjunguha/haskell-couchdb dda2f64f9c7c6b434c41ee9f0bff80645c5e114c Arjun Guha arjun@cs.brown.edu