hpc 0.6.1.0 → 0.6.2.0

raw patch · 4 files changed

+38/−5 lines, 4 files

Files

Trace/Hpc/Tix.hs +20/−1
Trace/Hpc/Util.hs +13/−2
changelog.md +3/−0
hpc.cabal +2/−2

Trace/Hpc/Tix.hs view

@@ -1,6 +1,6 @@ {-# LANGUAGE CPP #-} #if __GLASGOW_HASKELL__ >= 704-{-# LANGUAGE Safe #-}+{-# LANGUAGE Safe, DeriveGeneric, StandaloneDeriving #-} #elif __GLASGOW_HASKELL__ >= 702 -- System.FilePath in filepath version 1.2.0.1 isn't marked or implied Safe, -- as shipped with GHC 7.2.@@ -16,6 +16,11 @@                      tixModuleName, tixModuleHash, tixModuleTixs,                      readTix, writeTix, getTixFileName) where +#if __GLASGOW_HASKELL__ >= 704+import GHC.Generics (Generic)+import Control.DeepSeq (NFData)+#endif+ import System.FilePath (replaceExtension)  import Trace.Hpc.Util (Hash, catchIO, readFileUtf8, writeFileUtf8)@@ -25,12 +30,26 @@ data Tix = Tix [TixModule]         deriving (Read, Show, Eq) +#if __GLASGOW_HASKELL__ >= 704+-- | @since 0.6.2.0+deriving instance (Generic Tix)+-- | @since 0.6.2.0+instance NFData Tix+#endif+ data TixModule = TixModule                  String    --  module name                  Hash      --  hash number                  Int       --  length of Tix list (allows pre-allocation at parse time).                  [Integer] --  actual ticks         deriving (Read, Show, Eq)++#if __GLASGOW_HASKELL__ >= 704+-- | @since 0.6.2.0+deriving instance (Generic TixModule)+-- | @since 0.6.2.0+instance NFData TixModule+#endif  -- TODO: Turn extractors below into proper 'TixModule' field-labels tixModuleName :: TixModule -> String

Trace/Hpc/Util.hs view

@@ -1,6 +1,6 @@ {-# LANGUAGE CPP #-} #if __GLASGOW_HASKELL__ >= 704-{-# LANGUAGE Safe #-}+{-# LANGUAGE Safe, DeriveGeneric, StandaloneDeriving #-} #elif __GLASGOW_HASKELL__ >= 702 {-# LANGUAGE Trustworthy #-} #endif@@ -22,7 +22,11 @@        , writeFileUtf8        ) where -import Control.DeepSeq (deepseq)+#if __GLASGOW_HASKELL__ >= 704+import GHC.Generics (Generic)+#endif++import Control.DeepSeq (deepseq, NFData) import qualified Control.Exception as Exception import Data.List(foldl') import Data.Char (ord)@@ -80,6 +84,13 @@   toHash :: a -> Hash  newtype Hash = Hash Word32 deriving (Eq)++#if __GLASGOW_HASKELL__ >= 704+-- | @since 0.6.2.0+deriving instance (Generic Hash)+-- | @since 0.6.2.0+instance NFData Hash+#endif  instance Read Hash where   readsPrec p n = [ (Hash v,rest)

changelog.md view

@@ -1,4 +1,7 @@ # Changelog for [`hpc` package](http://hackage.haskell.org/package/hpc)+## 0.6.2.0  *September 2021*++  * Addition of `NFData` instances for `Tix` and `TixModule`  ## 0.6.1.0  *October 2019*

hpc.cabal view

@@ -1,5 +1,5 @@ name:         hpc-version:      0.6.1.0+version:      0.6.2.0 -- NOTE: Don't forget to update ./changelog.md license:      BSD3 license-file: LICENSE@@ -22,7 +22,7 @@  source-repository head     type:     git-    location: http://git.haskell.org/packages/hpc.git+    location: https://gitlab.haskell.org/ghc/packages/hpc.git  Library     default-language: Haskell98