1. Peter Sagerson
  2. couch-hs

Source

couch-hs / source / Database / CouchDB / ViewServer / Internal.hs

1
2
3
4
5
6
7
8
9
module Database.CouchDB.ViewServer.Internal where

import Data.Aeson


newtype LogMessage = LogMessage { message :: String }

instance ToJSON LogMessage where
    toJSON (LogMessage s) = toJSON ["log", s]