diff options
Diffstat (limited to 'Bustle/UI/DetailsView.hs')
-rw-r--r-- | Bustle/UI/DetailsView.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Bustle/UI/DetailsView.hs b/Bustle/UI/DetailsView.hs index 134038f..e1fa995 100644 --- a/Bustle/UI/DetailsView.hs +++ b/Bustle/UI/DetailsView.hs @@ -86,10 +86,10 @@ getDestination (Detailed _ m _ _) = case m of Signal { signalDestination = d } -> d _ -> Just (destination m) -getErrorName :: Detailed a -> Maybe String +getErrorName :: Detailed a -> IO (Maybe String) getErrorName (Detailed _ _ _ m) = messageErrorName m -formatMessage :: Detailed Message -> String +formatMessage :: Detailed Message -> IO String formatMessage (Detailed _ _ _ m) = messagePrintBody m {- TODO reintroduce special case? case (rm, D.fromVariant <$> body) of @@ -128,10 +128,10 @@ detailsViewUpdate d m = do -- to/from well-known names and show both labelSetText (detailsSender d) (unBusName . sender . deEvent $ m) setOptionalRow (detailsDestination d) (unBusName <$> getDestination m) - setOptionalRow (detailsErrorName d) (getErrorName m) + setOptionalRow (detailsErrorName d) =<< getErrorName m labelSetText (detailsPath d) (maybe unknown (formatObjectPath . path) member_) labelSetMarkup (detailsMember d) (maybe unknown getMemberMarkup member_) - textBufferSetText buf (formatMessage m) + textBufferSetText buf =<< formatMessage m where unknown = "" |