hiedb 0.4.2.0 → 0.4.3.0
raw patch · 5 files changed
+29/−4 lines, 5 filesdep ~basePVP ok
version bump matches the API change (PVP)
Dependency ranges changed: base
API changes (from Hackage documentation)
+ HieDb.Compat: field_label :: a -> a
Files
- CHANGELOG.md +6/−0
- hiedb.cabal +1/−1
- src/HieDb/Compat.hs +14/−0
- src/HieDb/Create.hs +3/−0
- src/HieDb/Utils.hs +5/−3
CHANGELOG.md view
@@ -1,8 +1,14 @@ # Revision history for hiedb +## 0.4.3.0 -- 2023-03-13++* Support GHC 9.6+* Set sqlite pragma busy_timeout to 500ms to mitigate frequent failures on concurrent access+ ## 0.4.2.0 -- 2022-09-12 * Support GHC 9.4+* Add upper bounds for base and algebraic graphs ## 0.4.1.0 -- 2021-06-29
hiedb.cabal view
@@ -1,6 +1,6 @@ cabal-version: 2.4 name: hiedb-version: 0.4.2.0+version: 0.4.3.0 synopsis: Generates a references DB from .hie files description: Tool and library to index and query a collection of `.hie` files bug-reports: https://github.com/wz1000/HieDb/issues
src/HieDb/Compat.hs view
@@ -79,6 +79,7 @@ -- * IFace , IfaceType , IfaceTyCon(..)+ , field_label ) where import Compat.HieTypes@@ -95,7 +96,13 @@ import GHC.Types.Name.Cache import GHC.Types.Unique.Supply import GHC.Unit.Types+#if __GLASGOW_HASKELL__ >= 905+import Language.Haskell.Syntax.Module.Name+import GHC.CmmToLlvm.Config+import Language.Haskell.Syntax.Basic+#else import GHC.Unit.Module.Name+#endif import GHC.Utils.Fingerprint #if __GLASGOW_HASKELL__ >= 902 import GHC.Driver.Ppr (showSDoc)@@ -201,3 +208,10 @@ #if __GLASGOW_HASKELL__ >= 903 type NameCacheUpdater = NameCache #endif++#if __GLASGOW_HASKELL__ < 905+field_label :: a -> a+field_label = id+#endif++
src/HieDb/Create.hs view
@@ -45,6 +45,8 @@ -} checkVersion :: (HieDb -> IO a) -> HieDb -> IO a checkVersion k db@(getConn -> conn) = do+ execute_ conn "PRAGMA busy_timeout = 500;"+ execute_ conn "PRAGMA journal_mode = WAL;" [Only ver] <- query_ conn "PRAGMA user_version" if ver == 0 then do execute_ conn $ fromString $ "PRAGMA user_version = " ++ show dB_VERSION@@ -71,6 +73,7 @@ -} initConn :: HieDb -> IO () initConn (getConn -> conn) = do+ execute_ conn "PRAGMA busy_timeout = 500;" execute_ conn "PRAGMA journal_mode = WAL;" execute_ conn "PRAGMA foreign_keys = ON;" execute_ conn "PRAGMA defer_foreign_keys = ON;"
src/HieDb/Utils.hs view
@@ -148,7 +148,9 @@ #else (Just libdir) #endif-#if __GLASGOW_HASKELL__ >= 810+#if __GLASGOW_HASKELL__ >= 905+ return $ defaultDynFlags systemSettings+#elif __GLASGOW_HASKELL__ >= 810 return $ defaultDynFlags systemSettings $ LlvmConfig [] [] #else return $ defaultDynFlags systemSettings ([], [])@@ -268,7 +270,7 @@ , exportIsDatacon = False }] where- (n, m, u) = (mkVarOccFS $ flLabel fl+ (n, m, u) = (mkVarOccFS $ field_label $ flLabel fl -- For fields, the module details come from the parent ,moduleName $ nameModule $ flSelector fl ,moduleUnit $ nameModule $ flSelector fl@@ -299,7 +301,7 @@ )) (drop 1 pieces) <> map (\s ->- (mkVarOccFS $ flLabel s+ (mkVarOccFS $ field_label $ flLabel s -- For fields, the module details come from the parent ,moduleName $ nameModule name ,moduleUnit $ nameModule name