From 30eced370899d1ece9c6a3b2988008d352b7bfbf Mon Sep 17 00:00:00 2001
From: SJost <jost@tcs.ifi.lmu.de>
Date: Thu, 28 Jun 2018 09:34:28 +0200
Subject: [PATCH] Tooltip problem? cd
 /home/jost/programming/Haskell/Yesod/uniworx

---
 src/Handler/Utils/Form.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Handler/Utils/Form.hs b/src/Handler/Utils/Form.hs
index cb780abe7..83fb18fe5 100644
--- a/src/Handler/Utils/Form.hs
+++ b/src/Handler/Utils/Form.hs
@@ -483,7 +483,7 @@ setNameClass fs gName gClass = fs { fsName= Just gName, fsAttrs=("class",gClass)
 setTooltip :: String -> FieldSettings site -> FieldSettings site
 setTooltip tt fs
   | null tt   = fs { fsTooltip = Nothing }
-  | otherwise = fs { fsTooltip = Just $ fromString tt }
+  | otherwise = fs { fsTooltip = Just $ fromString tt, fsAttrs=("tooltip",fromString tt):(fsAttrs fs) }
 
 optionsPersistCryptoId :: forall site backend a msg.
                           ( YesodPersist site