git.iko.soy/reflex-dom
on develop help sign in
Merge pull request #164 from reflex-frp/modalst-query-instance
07d9480Ali Abrar
reflex-dom-core/src/Reflex/Dom/Modals/Base.hs+6
compare with develop
unifiedsplit
@@ -7,6 +7,7 @@
7{-# LANGUAGE RecursiveDo #-}
7{-# LANGUAGE RecursiveDo #-}
8{-# LANGUAGE ScopedTypeVariables #-}
8{-# LANGUAGE ScopedTypeVariables #-}
9{-# LANGUAGE TypeFamilies #-}
9{-# LANGUAGE TypeFamilies #-}
10+{-# LANGUAGE UndecidableInstances #-}
10module Reflex.Dom.Modals.Base
11module Reflex.Dom.Modals.Base
11 ( ModalsT (..)
12 ( ModalsT (..)
12 , ModalLayerConfig (..)
13 , ModalLayerConfig (..)
@@ -142,6 +143,11 @@ instance (DomBuilder t m) => Default (ModalLayerConfig t m) where
142 & initialAttributes .~ ("style" =: "background-color:white;opacity:1;padding:1em")
143 & initialAttributes .~ ("style" =: "background-color:white;opacity:1;padding:1em")
143 }
144 }
144
145
146+instance (MonadQuery t q m, Monad m) => MonadQuery t q (ModalsT t m) where
147+ tellQueryIncremental = lift . tellQueryIncremental
148+ askQueryResult = lift askQueryResult
149+ queryIncremental = lift . queryIncremental
150+
145withModalLayer :: forall t m a. (Reflex t, MonadFix m, DomBuilder t m, MonadHold t m)
151withModalLayer :: forall t m a. (Reflex t, MonadFix m, DomBuilder t m, MonadHold t m)
146 => ModalLayerConfig t m
152 => ModalLayerConfig t m
147 -> ModalsT t m a
153 -> ModalsT t m a