diff options
Diffstat (limited to 'src/Much/TreeView')
| -rw-r--r-- | src/Much/TreeView/Types.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/Much/TreeView/Types.hs b/src/Much/TreeView/Types.hs index 6e4ac6b..f30b0bc 100644 --- a/src/Much/TreeView/Types.hs +++ b/src/Much/TreeView/Types.hs @@ -16,6 +16,7 @@ data TreeView | TVMessageHeaderField Message (CI.CI T.Text) | TVMessagePart Message MessagePart | TVMessageQuoteLine Message MessagePart LineNr String + | TVMessageRawLine Message MessagePart LineNr String | TVMessageLine Message MessagePart LineNr String | TVSearch String | TVSearchResult SearchResult @@ -53,6 +54,9 @@ treeViewId = \case TVMessageQuoteLine m mp lineNr _ -> TVIDMessageLine (fromMessage m) (partID mp) lineNr + TVMessageRawLine m mp lineNr _ -> + TVIDMessageLine (fromMessage m) (partID mp) lineNr + TVSearch s -> TVIDSearch (T.pack s) |