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

{-# OPTIONS_HADDOCK hide #-}

module Database.CouchDB.ViewServer.Internal where

import Data.Aeson


newtype LogMessage = LogMessage { message :: String }

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