mkToSql :: RelationalMap a b -> ToSql a ()
mkToSql (RM_Field field) =
  when (not $ isAssignedByDatabaseField field) $ do
    value <- ask
    modify (fieldToSqlValue field value :)
mkToSql :: RelationalMap a b -> ToSql a ()
mkToSql (RM_Field field) =
  when (not $ isAssignedByDatabaseField field) $ do
    value <- ask
    modify (fieldToSqlValue field value :)
mkToSql (RM_Field field) =
  when (not $ isAssignedByDatabaseField field) $ do
    value <- ask
    modify (fieldToSqlValue field value :)