From 42e94a45e26f40edc3ad71b1e77a4bf47c13fd3d Mon Sep 17 00:00:00 2001
From: Joris
Date: Wed, 15 Nov 2017 23:50:44 +0100
Subject: Add dynamic pages

---
 client/src/View/Header.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'client/src/View/Header.hs')

diff --git a/client/src/View/Header.hs b/client/src/View/Header.hs
index 711ba80..7afd9bd 100644
--- a/client/src/View/Header.hs
+++ b/client/src/View/Header.hs
@@ -65,7 +65,7 @@ signOutButton :: forall t m. MonadWidget t m => m (Event t ())
 signOutButton = do
   rec
     signOut <- Component.button $ ButtonIn
-      { Component._buttonIn_class = "signOut item"
+      { Component._buttonIn_class = R.constDyn "signOut item"
       , Component._buttonIn_content = Icon.signOut
       , Component._buttonIn_waiting = waiting
       }
-- 
cgit v1.2.3