Update testserver

testserver/Main.hs

@@ -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

testserver/testserver.cabal

@@ -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