fix hint string generation

lucalabs-de · Aug 28, 2023 · c42abf3 · c42abf3
1 parent b8d8a3e
commit c42abf3
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/app/Util/Builders.hs b/app/Util/Builders.hs
@@ -39,6 +39,7 @@ buildHintString :: Map Text Variant -> String
 buildHintString = Data.Map.foldrWithKey (\k v s -> s ++ showEntry k v) ""
  where
   showEntry k v = "(" ++ unpack k ++ "," ++ show v ++ ")"
+  show (Variant (ValueAtom (AtomText x))) = unpack x
   show (Variant x) = showValue True x
 
 buildEwwNotification ::