hs

CmdShow id -> do
            doc <- cmdShowId @Note id
            case doc of
                Right Storage.Document{value} -> pprint $ withHeader "Note:" $ UI.noteViewFull $ noteView id value
                Left _ -> do
                    doc <- cmdShowId @Contact id
                    case doc of
                        Right Storage.Document{value} -> pprint $ withHeader "Contact:" $ UI.contactViewFull $ contactView id value
                        Left e -> liftIO $ pprint a