backend: Silly consistency deriving clause
commit8993c7dbb077055eaea12c8e28442affdd2ac4fb
authorElliot Cameron <eacameron@gmail.com>
dateMon 16 Mar 2020, 17:32 (7 years ago)
parentdd7d760
lib/backend/src/Obelisk/Backend.hs+1−1
@@ -68,7 +68,7 @@ import System.IO (BufferMode (..), hSetBuffering, stderr, stdout)
6868data Backend backendRoute frontendRoute = Backend
6969 { _backend_routeEncoder :: Encoder (Either Text) Identity (R (FullRoute backendRoute frontendRoute)) PageName
7070 , _backend_run :: ((R backendRoute -> Snap ()) -> IO ()) -> IO ()
71− } deriving Generic
71+ } deriving (Generic)
7272
7373data BackendConfig frontendRoute = BackendConfig
7474 { _backendConfig_runSnap :: !(Snap () -> IO ()) -- ^ Function to run the snap server