Merge remote-tracking branch 'origin/routes'
commit7f2dec1fe202cb0d6497245c56adf8df517195b3
authorRyan Trinkle <ryan.trinkle@gmail.com>
dateFri 12 Oct 2018, 19:21 (8 years ago)
parent341a26230e04f5
lib/frontend/src/Obelisk/Frontend.hs−1
@@ -31,7 +31,6 @@ import Data.ByteString (ByteString)
3131import Data.Dependent.Sum (DSum (..))
3232import Data.Functor.Sum
3333import Data.IORef
34−import Data.Monoid hiding (Sum)
3534import GHCJS.DOM hiding (bracket, catch)
3635import GHCJS.DOM.Document
3736import GHCJS.DOM.Node
lib/route/src/Obelisk/Route/Frontend.hs+1−1
@@ -85,7 +85,7 @@ infixr 5 :~
8585pattern (:~) :: Reflex t => f a -> Dynamic t a -> DSum f (Compose (Dynamic t) Identity)
8686pattern a :~ b <- a :=> (coerceDynamic . getCompose -> b)
8787
88−class Routed t r m where
88+class Routed t r m | m -> t r where
8989 askRoute :: m (Dynamic t r)
9090
9191instance Monad m => Routed t r (RoutedT t r m) where