skeleton/backend/src/Backend.hs · obelisk

git.iko.soy/obelisk

on decrease-android-validity help sign in

15 lines 384 B history raw

1{-# LANGUAGE EmptyCase #-}

2{-# LANGUAGE FlexibleContexts #-}

3{-# LANGUAGE LambdaCase #-}

4{-# LANGUAGE RankNTypes #-}

5{-# LANGUAGE TypeFamilies #-}

6module Backend where

8import Common.Route

9import Obelisk.Backend

11backend :: Backend BackendRoute FrontendRoute

12backend = Backend

13 { _backend_run = \serve -> serve $ const $ return ()

14 , _backend_routeEncoder = backendRouteEncoder

15 }