@@ -7,6 +7,7 @@
77{-# LANGUAGE RecursiveDo #-}
88{-# LANGUAGE ScopedTypeVariables #-}
99{-# LANGUAGE TypeFamilies #-}
10+{-# LANGUAGE UndecidableInstances #-}
1011module Reflex.Dom.Modals.Base
1112 ( ModalsT (..)
1213 , ModalLayerConfig (..)
@@ -142,6 +143,11 @@ instance (DomBuilder t m) => Default (ModalLayerConfig t m) where
142143 & initialAttributes .~ ("style" =: "background-color:white;opacity:1;padding:1em")
143144 }
144145
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+
145151withModalLayer :: forall t m a. (Reflex t, MonadFix m, DomBuilder t m, MonadHold t m)
146152 => ModalLayerConfig t m
147153 -> ModalsT t m a