1  module Backend (backend) where
 2  
 3  import Common.Route (BackendRoute, FrontendRoute, fullRouteEncoder)
 4  import Obelisk.Backend (Backend (..))
 5  
 6  backend :: Backend BackendRoute FrontendRoute
 7  backend =
 8    Backend
 9      { _backend_run = \serve -> serve . const $ pure (),
10        _backend_routeEncoder = fullRouteEncoder
11      }