大更新:

1、完善SQL语法
2、移除node前端,只保留静态资源
3、写好安装脚本
4、做好linux适配
This commit is contained in:
LIm1tZz7 committed 2026-10-01 20:48:38 +08:00
1 parent 687c012841
commit df6d348995
166 files changed
+16317 -10763

No files matched your search

-2
View File
@@ -106,7 +106,6 @@ seedDemo backend = do
(const (SeedReport (map T.unpack missingNames) skipped (map (T.unpack . snd) wantedIndexes)))
indexes
where
-- | 逐条执行,遇到错就停
runAll :: [Either String String] -> IO (Either String ())
runAll [] = pure (Right ())
runAll (sql : rest) = case sql of
@@ -117,7 +116,6 @@ seedDemo backend = do
Left e -> pure (Left e)
Right _ -> runAll rest
-- | 这张表上是否还没有这个索引
indexMissing :: [TableInfo] -> T.Text -> T.Text -> Bool
indexMissing infos t c = case lookup (T.unpack t) [(tiTable i, tiIndexes i) | i <- infos] of
Nothing -> True