routes :: [(ByteString, Handler App App ())]
routes = [
           ("/api/login/new",  handleNewUser)
         , ("/api/login",      handleLogin)
         , ("/api/todo",       handleRestTodos)
         , ("/static",         serveDirectory "static")
         , ("/",               serveFile "static/index.html")
         ]
routes :: [(ByteString, Handler App App ())]
routes = [
           ("/api/login/new",  handleNewUser)
         , ("/api/login",      handleLogin)
         , ("/api/todo",       handleRestTodos)
         , ("/static",         serveDirectory "static")
         , ("/",               serveFile "static/index.html")
         ]
routes = [
           ("/api/login/new",  handleNewUser)
         , ("/api/login",      handleLogin)
         , ("/api/todo",       handleRestTodos)
         , ("/static",         serveDirectory "static")
         , ("/",               serveFile "static/index.html")
         ]