275939f · reflex-dom · git.iko.soy

git.iko.soy/reflex-dom

Fix hlint

commit275939f650b87d2d46b6b8416655d963fee9280e authorRyan Trinkle <ryan.trinkle@gmail.com> dateSun 25 Jun 2017, 15:03 (9 years ago) parent7f153c3

2 files changed+3−3

unifiedsplit

reflex-dom-core/src/Reflex/Dom/Modals/Base.hs+2−2

@@ -131,12 +131,12 @@ instance (DomBuilder t m) => Default (ModalLayerConfig t m) where

131131 def = ModalLayerConfig

132132 { _modalLayerConfig_backdropElementConfig = (def :: ElementConfig EventResult t (DomBuilderSpace m))

133133 & elementConfig_eventSpec %~ addEventSpecFlags (Proxy :: Proxy (DomBuilderSpace m)) Click (const stopPropagation)

134− & initialAttributes .~ ("style" =: (T.intercalate ";"

134+ & initialAttributes .~ ("style" =: T.intercalate ";"

135135 [ "position:absolute"

136136 , "left:0", "right:0", "top:0", "bottom:0"

137137 , "background-color:rgba(0,0,0,0.1)"

138138 , "display:flex", "justify-content:center", "align-items:center"

139− ]))

139+ ])

140140 , _modalLayerConfig_bodyElementConfig = (def :: ElementConfig EventResult t (DomBuilderSpace m))

141141 & elementConfig_eventSpec %~ addEventSpecFlags (Proxy :: Proxy (DomBuilderSpace m)) Click (const stopPropagation)

142142 & initialAttributes .~ ("style" =: "background-color:white;opacity:1;padding:1em")

reflex-dom-core/test/gc.hs+1−1

@@ -69,7 +69,7 @@ main = do

6969 finishTest ExitSuccess

7070 return Nothing

7171 rec redraw <- performEvent <=< delay 0 $ f <$> leftmost

72− [ ((0 :: Int), (0 :: Int)) <$ postBuild

72+ [ (0 :: Int, 0 :: Int) <$ postBuild

7373 , fmapMaybe id redraw

7474 ]

7575 _ <- widgetHold w $ w <$ redraw