diff options
author | tv <tv@shackspace.de> | 2014-12-25 19:50:11 +0100 |
---|---|---|
committer | tv <tv@shackspace.de> | 2014-12-25 19:50:11 +0100 |
commit | 8ba04b360b69ad341c1cc42534ea826018eaaced (patch) | |
tree | 50f0e7d96c11628a5970a0959c7343cd451e3bbb /test3.hs | |
parent | 0299524420701b1225c273c7ceff1f8093a3028b (diff) |
Notmuch.getThread -> IO (Forest Message)
Diffstat (limited to 'test3.hs')
-rw-r--r-- | test3.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -158,7 +158,7 @@ main' query = TVSearchResult the_sr = Z.label sr ThreadID tid = searchThread the_sr - t_ <- return . (:[]) . fromMessageTree =<< getThread tid + t_ <- return . fromMessageForest =<< getThread tid let loc' = Z.modifyTree (\(Node l _) -> Node l t_) sr rec q { cursor = select (==Z.label cursor) loc' } @@ -173,7 +173,7 @@ main' query = t_ <- if open then return [] - else return . (:[]) . fromMessageTree =<< getThread tid + else return . fromMessageForest =<< getThread tid let loc' = Z.modifyTree (\(Node l _) -> Node l t_) loc rec q { cursor = select (==Z.label cursor) loc' } |