PouchDB.elm

module PouchDB where

import Task
import Json.Decode exposing (..)

import Native.PouchDB

type PouchDB = PouchDB

type alias Document a =
  { a | pouchId : Maybe String, pouchRev : Maybe String }

create : String -> Task.Task String PouchDB
create name =
  Native.PouchDB.create name

documentDecoder : Json.Decode.Decoder a -> Json.Decode.Decoder (Document a)
documentDecoder decoder = 
  object3 
    (\id rev model -> { model | pouchId = Just id, pouchRev = Just rev })
    ("id" := string)
    ("_rev" := string)
    decoder

all : PouchDB -> Json.Decode.Decoder a -> Task.Task String (List (Document a))
all db decoder =
  Native.PouchDB.allDocs
  |> Task.map (List.filterMap (Json.Decode.decodeValue (documentDecoder decoder) >> Result.toMaybe))