@@ -12,6 +12,7 @@ import Control.Monad.Fix (MonadFix)
1212import Data.Monoid ((<>))
1313import Data.Text (Text)
1414import qualified Data.Text as T
15+import GHC.TypeLits
1516import Servant.API
1617import Servant.Reflex
1718import API
@@ -45,6 +46,8 @@ run = do
4546 let (getUnit :<|> getInt :<|> sayhi :<|> dbl :<|> multi :<|> qna :<|> doRaw) =
4647 client api (Proxy :: Proxy m) url
4748
49+ c2 = client (Proxy :: Proxy ComprehensiveAPI) (Proxy :: Proxy m) url -- Just make sure this compiles for now
50+
4851 elClass "div" "demo-group" $ do
4952 unitBtn <- divClass "unit-button" $ button "Get unit"
5053 intBtn <- divClass "int-button" $ button "Get int"