ghc-tags-plugin 0.4.0.1 → 0.5.0.0
raw patch · 3 files changed
+14/−9 lines, 3 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- CHANGELOG.md +4/−0
- ghc-tags-plugin.cabal +2/−2
- lib/Plugin/GhcTags.hs +8/−7
CHANGELOG.md view
@@ -1,5 +1,9 @@ # Revision history for ghctags +## 0.4.0.2++* Fixed a bug: no headers for ctag file when `--stream` option was not set.+ ## 0.4.0.1 * `ghc-tags-plugin` is now compatible with `GHC-9.4`.
ghc-tags-plugin.cabal view
@@ -1,6 +1,6 @@ cabal-version: 2.4 name: ghc-tags-plugin-version: 0.4.0.1+version: 0.5.0.0 synopsis: A compiler plugin which generates tags file from GHC parsed syntax tree. description: A [GHC compiler plugin](https://ghc.gitlab.haskell.org/ghc/doc/users_guide/extending_ghc.html?highlight=compiler%20plugin#compiler-plugins)@@ -18,7 +18,7 @@ README.md homepage: https://github.com/coot/ghc-tags-plugin#readme bug-reports: https://github.com/coot/ghc-tags-plugin/issues-tested-with: GHC==8.8.4, GHC==8.10.7, GHC==9.0.1, GHC==9.2.4, GHC==9.4.2+tested-with: GHC==8.8.4, GHC==8.10.7, GHC==9.0.2, GHC==9.2.4, GHC==9.4.2 -- Don't build gtp-check command by default; it's a development tool. flag gtp-check
lib/Plugin/GhcTags.hs view
@@ -19,12 +19,13 @@ import qualified Data.ByteString.Builder as BB import qualified Data.Text as Text import qualified Data.Text.Encoding as Text-#if __GLASGOW_HASKELL__ < 808-import Data.Functor (void, (<$))-#endif import Data.Functor.Identity (Identity (..)) import Data.List (sortBy)-import Data.Either (partitionEithers)+#if __GLASGOW_HASKELL__ < 810+import Data.Either (rights)+#else+import Data.Either (partitionEithers, rights)+#endif import Data.Foldable (traverse_) import Data.Maybe (mapMaybe) import System.Directory@@ -498,8 +499,8 @@ Right (Left err) -> printMessageDoc dynFlags ParserException (Just ms_mod) err - Right (Right !parsed) -> do- let (headers, !parsedTags) = partitionEithers parsed + Right (Right parsed) -> do+ let parsedTags = rights parsed tags :: [CTag] tags = map (fixTagFilePath cwd tagsDir)@@ -515,7 +516,7 @@ combined = combineTags CTag.compareTags modulePath tags parsedTags BB.hPutBuilder writeHandle- ( foldMap CTag.formatHeader headers+ ( foldMap CTag.formatHeader CTag.headers <> foldMap CTag.formatTag combined )