bump servant-snap for clock upper bound
commit19b3e44eabba625a865a207ac4e4de23f31d2d2c
authorGreg Hale <imalsogreg@gmail.com>
dateSun 7 Feb 2016, 11:32 (11 years ago)
parent8f8b776
deps/servant-snap+1−1
Submodule changed.
test/back/Main.hs+1−1
@@ -37,7 +37,7 @@ testApi = Proxy
3737--
3838-- Each handler runs in the 'ExceptT ServantErr IO' monad.
3939server :: Server API Snap
40−server = return ()
40+server = return () :<|> return 100
4141
4242 where helloH name Nothing = helloH name (Just False)
4343 helloH name (Just False) = return . Greet $ "Hello, " <> name
test/common/API.hs+1−1
@@ -5,4 +5,4 @@ module API where
55
66import Servant.API
77
8−type API = Get '[JSON] ()
8+type API = Get '[JSON] () :<|> Get '[JSON] Int
test/front/Main.hs+1−1
@@ -20,7 +20,7 @@ main = mainWidget run
2020
2121run :: forall t m. MonadWidget t m => m ()
2222run = do
23− let (getUnit :: Event t () -> m (Event t ((),()))) = client api url
23+ let (getUnit :<|> get100) = client api url
2424 b :: Event t () <- button "Get unit"
2525 res :: Event t ((),()) <- getUnit b
2626 c <- foldDyn (\_ (n :: Int) -> succ n) 0 res