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

git.iko.soy/reflex-dom

on develop help sign in

Fix hlint

275939fRyan Trinkle9 years ago

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

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

131 def = ModalLayerConfig

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

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

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

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

135 [ "position:absolute"

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

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

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

139− ]))

139+ ])

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

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

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

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

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

69 finishTest ExitSuccess

70 return Nothing

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

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

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

73 , fmapMaybe id redraw

74 ]

75 _ <- widgetHold w $ w <$ redraw