diff --git a/src/Monocle/Backend/Documents.hs b/src/Monocle/Backend/Documents.hs index 585e075f2..45dc4dd24 100644 --- a/src/Monocle/Backend/Documents.hs +++ b/src/Monocle/Backend/Documents.hs @@ -341,6 +341,7 @@ allEventTypes :: [EDocType] allEventTypes = filter (`notElem` [EChangeDoc, EOrphanTaskData, ECachedAuthor, EErrorDoc]) [minBound .. maxBound] + instance From EDocType Text where from = \case EChangeCreatedEvent -> "ChangeCreatedEvent"