~singpolyma/cheogram

c45aef2e38d03cd30d6319bfdc2f6e1e399a7d5d — Stephen Paul Weber a month ago 1af8fc7
Print label for field of type fixed.
1 files changed, 1 insertions(+), 0 deletions(-)

M Adhoc.hs
M Adhoc.hs => Adhoc.hs +1 -0
@@ 139,6 139,7 @@ formatLabel valueFormatter field = lbl ++ value ++ descSuffix
adhocBotAnswerFixed :: (UIO.Unexceptional m) => (Text -> m ()) -> m XMPP.Message -> Element -> m [Element]
adhocBotAnswerFixed sendText _getMessage field = do
	let values = fmap (mconcat . elementText) $ isNamed (s"{jabber:x:data}value") =<< elementChildren field
	sendText $ formatLabel (const Nothing) field
	sendText $ unlines values
	return []