yesod-dsl-0.2.1: codegen/class-select.cg

lookup~{className c}Instance :: forall (m :: * -> *). (MonadIO m) =>
    ~{className c}InstanceId -> SqlPersistT m (Maybe ~{className c}Instance)
lookup~{className c}Instance k = case k of
~{indent 4 $ concatMap lookupInstance es}
    
select~{className c} :: forall (m :: * -> *). 
    (MonadLogger m, MonadIO m, MonadThrow m, MonadBaseControl IO m) => 
    ~{maybeFilterType} SqlPersistT m [~{className c}Instance]
select~{className c} ~{maybeFilterParam} = do
~{indent 4 $ concatMap selectEntity es}
    return $ concat [
~{indent 8 $ intercalate ", " $ map wrapResult es}
        ]