git.iko.soy/typeable/servant-reflex
on master help sign in
Update testserver
commit792c0182a11f576cdf94bdd2eca52a98f07b7e94 authorGreg Hale <imalsogreg@gmail.com> dateSat 17 Sep 2016, 21:32 (10 years ago) parent92b6951
2 files changed+6−6
testserver/Main.hs+3−3 testserver/testserver.cabal+3−3
testserver/Main.hs+3−3
@@ -62,12 +62,12 @@ server = return () :<|> return 100 :<|> sayhi :<|> dbl :<|> multi :<|> serveDire
6262
6363-- Turn the server into a WAI app. 'serve' is provided by servant,
6464-- more precisely by the Servant.Server module.
65−test :: Application (Handler App App)
66−test = serve testApi server
65+test :: Handler App App ()
66+test = serveSnap testApi server
6767
6868initApp :: SnapletInit App App
6969initApp = makeSnaplet "myapp" "example" Nothing $ do
70− addRoutes [("", applicationToSnap test)
70+ addRoutes [("", test)
7171 ,("", serveDirectory "static")
7272 ]
7373 return App
testserver/testserver.cabal+3−3
@@ -19,13 +19,13 @@ executable back
1919 main-is: Main.hs
2020 -- other-modules:
2121 -- other-extensions:
22− build-depends: aeson >= 0.9 && < 0.12
22+ build-depends: aeson >= 0.9 && < 1.1
2323 , base >=4.8 && <4.10
2424 , snap >= 1.0 && < 1.1
2525 , snap-server >= 1.0 && < 1.1
2626 , snap-core >= 1.0 && < 1.1
27− , servant >= 0.7.1 && < 0.8
28− , servant-snap
27+ , servant >= 0.7.1 && < 0.9
28+ , servant-snap >= 0.7 && < 0.8
2929 , text >= 1.2 && < 1.3
3030 -- hs-source-dirs:
3131 default-language: Haskell2010