From bfc84b0abfe3a53fe0d69a8ecd1e20058acf8e12 Mon Sep 17 00:00:00 2001 From: Gabor Greif Date: Thu, 12 Jul 2018 13:30:58 +0200 Subject: [PATCH] import qualified --- src/Graphics/UI/Threepenny/Core.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Graphics/UI/Threepenny/Core.hs b/src/Graphics/UI/Threepenny/Core.hs index 94acf13f..a4a218ad 100644 --- a/src/Graphics/UI/Threepenny/Core.hs +++ b/src/Graphics/UI/Threepenny/Core.hs @@ -62,9 +62,9 @@ module Graphics.UI.Threepenny.Core ( import Control.Monad (forM_, forM, void) import Control.Monad.Fix import Control.Monad.IO.Class -import Data.Foldable (foldl) import qualified Control.Monad.Catch as E +import qualified Data.Foldable as F import qualified Data.Aeson as JSON import qualified Foreign.JavaScript as JS import qualified Graphics.UI.Threepenny.Internal as Core @@ -287,8 +287,8 @@ infixl 8 #. (#.) mx s = mx # set (attr "class") s -- | Convenient combinator for bulk setting of attributes on element creation. -(#=) :: Foldable t => UI x -> t (ReadWriteAttr x i o, i) -> UI x -(#=) e = ($ e) . foldl (\f p -> f . uncurry set p) id +(#=) :: F.Foldable t => UI x -> t (ReadWriteAttr x i o, i) -> UI x +(#=) e = ($ e) . F.foldl (\f p -> f . uncurry set p) id -- | Attributes can be 'set' and 'get'. type Attr x a = ReadWriteAttr x a a