mirror of
https://github.com/ilyakooo0/servant-reflex.git
synced 2024-09-11 07:15:29 +03:00
Update testserver
This commit is contained in:
parent
92b6951d00
commit
792c0182a1
@ -62,12 +62,12 @@ server = return () :<|> return 100 :<|> sayhi :<|> dbl :<|> multi :<|> serveDire
|
||||
|
||||
-- Turn the server into a WAI app. 'serve' is provided by servant,
|
||||
-- more precisely by the Servant.Server module.
|
||||
test :: Application (Handler App App)
|
||||
test = serve testApi server
|
||||
test :: Handler App App ()
|
||||
test = serveSnap testApi server
|
||||
|
||||
initApp :: SnapletInit App App
|
||||
initApp = makeSnaplet "myapp" "example" Nothing $ do
|
||||
addRoutes [("", applicationToSnap test)
|
||||
addRoutes [("", test)
|
||||
,("", serveDirectory "static")
|
||||
]
|
||||
return App
|
||||
|
@ -19,13 +19,13 @@ executable back
|
||||
main-is: Main.hs
|
||||
-- other-modules:
|
||||
-- other-extensions:
|
||||
build-depends: aeson >= 0.9 && < 0.12
|
||||
build-depends: aeson >= 0.9 && < 1.1
|
||||
, base >=4.8 && <4.10
|
||||
, snap >= 1.0 && < 1.1
|
||||
, snap-server >= 1.0 && < 1.1
|
||||
, snap-core >= 1.0 && < 1.1
|
||||
, servant >= 0.7.1 && < 0.8
|
||||
, servant-snap
|
||||
, servant >= 0.7.1 && < 0.9
|
||||
, servant-snap >= 0.7 && < 0.8
|
||||
, text >= 1.2 && < 1.3
|
||||
-- hs-source-dirs:
|
||||
default-language: Haskell2010
|
||||
|
Loading…
Reference in New Issue
Block a user