nothunks 0.2.0 → 0.2.1.0
raw patch · 3 files changed
+12/−6 lines, 3 filesdep +wherefrom-compat
Dependencies added: wherefrom-compat
Files
- CHANGELOG.md +5/−1
- nothunks.cabal +4/−1
- src/NoThunks/Class.hs +3/−4
CHANGELOG.md view
@@ -1,9 +1,13 @@ # Revision history for nothunks +## 0.2.1.0 -- 2024-02-06++* Support `wherefrom` with `GHC-9.2` or newer. (Teo Camarasu, [#49](https://github.com/input-output-hk/nothunks/pull/49))+ ## 0.2.0 -- 2024-01-27 * Use `whereFrom` to get source information, which is avialable when the source- is compiled with `GHC-9.4` (or newer) and with `-finfo-table-map` (and even+ is compiled with `GHC-9.6` (or newer) and with `-finfo-table-map` (and even more accurate when `-fdistinct-constructor-table` is passed). For that reason the `ThunkInfo` type has changed. * `NoThunks` instance for `Data.Tuple.Solo`.
nothunks.cabal view
@@ -1,6 +1,6 @@ cabal-version: 3.0 name: nothunks-version: 0.2.0+version: 0.2.1.0 synopsis: Examine values for unexpected thunks description: Long lived application data typically should not contain any thunks. This library can be used to examine values for@@ -47,6 +47,9 @@ -- Whatever is bundled with ghc , ghc-heap++ if impl(ghc >= 9.2)+ build-depends: wherefrom-compat ^>= 0.1.1 if flag(bytestring) build-depends: bytestring >= 0.10 && < 0.13
src/NoThunks/Class.hs view
@@ -5,7 +5,6 @@ {-# LANGUAGE DerivingVia #-} {-# LANGUAGE FlexibleContexts #-} {-# LANGUAGE FlexibleInstances #-}-{-# LANGUAGE KindSignatures #-} {-# LANGUAGE MultiParamTypeClasses #-} {-# LANGUAGE NamedFieldPuns #-} {-# LANGUAGE ScopedTypeVariables #-}@@ -71,8 +70,8 @@ import Numeric.Natural #endif -#if MIN_VERSION_base(4,18,0)-import GHC.InfoProv+#if MIN_VERSION_base(4,16,0)+import GHC.InfoProv.Compat #endif import qualified Control.Concurrent.MVar as MVar@@ -231,7 +230,7 @@ deriving Show getThunkInfo :: Context -> a -> IO ThunkInfo-#if MIN_VERSION_base(4,18,0)+#if MIN_VERSION_base(4,16,0) getThunkInfo ctxt a = ThunkInfo . maybe (Left ctxt) (Right . fmt) <$> whereFrom a where fmt :: InfoProv -> Info