diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -1,12 +1,3 @@
 # Graflog
 
-In a distributed system, logging is hard. In order for distributed logging to be
-useful, it needs to contain metadata about what caused it. Ideally, a given logged
-event should tell us:
-- what user input caused it
-- what API call caused it
-- whether it is an error or not
-- its severity
-- a correlative id that allows us to find other log events related to it
-
-Graflog is primarily focused on the last piece. 
+Monadic correlated log events!
diff --git a/graflog.cabal b/graflog.cabal
--- a/graflog.cabal
+++ b/graflog.cabal
@@ -1,5 +1,5 @@
 name:                graflog
-version:             4.0.0
+version:             5.0.0
 synopsis:            Monadic correlated log events
 description:         Please see README.md
 homepage:            https://github.com/m-arnold/graflog#readme
diff --git a/src/Graflog/Logger.hs b/src/Graflog/Logger.hs
--- a/src/Graflog/Logger.hs
+++ b/src/Graflog/Logger.hs
@@ -1,5 +1,6 @@
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE NamedFieldPuns #-}
 
 module Graflog.Logger
   ( Logger(..)
@@ -84,12 +85,15 @@
 pair :: ToLog a => Text -> a -> (Text, Log)
 pair key value = (key, toLog value)
 
+redacted :: Text
+redacted = "(REDACTED)"
+
 instance ToJSON Log where
   toJSON (Message a) = String a
   toJSON (List a) = toJSON a
   toJSON (Dictionary a) = toJSON a
   toJSON (Variant tag values) = toJSON $ Map.fromList [(tag, map toJSON values)]
-  toJSON Redacted = String "(REDACTED)"
+  toJSON Redacted = String redacted
 
 class Monad m => Logger m where
   logEvent :: Event -> m ()
@@ -107,9 +111,17 @@
   { _correlationId :: CorrelationId
   , _eventId :: EventId
   , _action :: Action
-  , _message :: Value
+  , _message :: Log
   } deriving (Eq, Show)
-deriveJSON defaultOptions{fieldLabelModifier = drop 1} ''Event
+
+instance ToJSON Event where
+  toJSON Event{_correlationId, _eventId, _action, _message} =
+    object
+      [ "correlationId" .= _correlationId
+      , "eventId" .= _eventId
+      , "action" .= _action
+      , "message" .= _message
+      ]
 
 logEvent' :: Console m => Event -> m ()
 logEvent' = writeStdout . jsonEncode