ghc-lib-parser-ex 0.20210801 → 0.20210901
raw patch · 3 files changed
+22/−5 lines, 3 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- ChangeLog.md +8/−2
- ghc-lib-parser-ex.cabal +1/−1
- src/Language/Haskell/GhclibParserEx/GHC/Hs/Expr.hs +13/−2
ChangeLog.md view
@@ -1,10 +1,16 @@ # Changelog for ghc-lib-parser-ex -## 0.20210801 released 2021-08-01+## 0.20210901 released 2021-09-01+- Update to `ghc-lib-parser-0.20210901`++## 8.10.0.23 released 2021-08-28+- Update to `ghc-lib-parser-8.10.7.20210828`++## 8.10.0.22 released 2021-08-14+- Update to `ghc-lib-parser-0.20210814` - Added to `GhclibParserEx.GHC.Hs.Expr`: - `isMonadComp` - `isListComp`-- Update to `ghc-lib-0.20210801` ## 0.20210701 released 2021-07-01 - Update to `ghc-lib-0.20210701`
ghc-lib-parser-ex.cabal view
@@ -1,6 +1,6 @@ cabal-version: 1.18 name: ghc-lib-parser-ex-version: 0.20210801+version: 0.20210901 description: Please see the README on GitHub at <https://github.com/shayne-fletcher/ghc-lib-parser-ex#readme> homepage: https://github.com/shayne-fletcher/ghc-lib-parser-ex#readme bug-reports: https://github.com/shayne-fletcher/ghc-lib-parser-ex/issues
src/Language/Haskell/GhclibParserEx/GHC/Hs/Expr.hs view
@@ -118,7 +118,14 @@ isParComp = \case ParStmt{} -> True; _ -> False -- TODO: Seems `HsStmtContext (HsDoRn p)` on master right now.-#if defined (GHCLIB_API_HEAD) || defined(GHCLIB_API_902) || defined (GHCLIB_API_900)+#if defined (GHCLIB_API_HEAD)+isMDo :: HsDoFlavour -> Bool+isMDo = \case MDoExpr _ -> True; _ -> False+isMonadComp :: HsDoFlavour -> Bool+isMonadComp = \case MonadComp -> True; _ -> False+isListComp :: HsDoFlavour -> Bool+isListComp = \case ListComp -> True; _ -> False+#elif defined(GHCLIB_API_902) || defined (GHCLIB_API_900) isMDo :: HsStmtContext GhcRn -> Bool isMDo = \case MDoExpr _ -> True; _ -> False isMonadComp :: HsStmtContext GhcRn -> Bool@@ -192,7 +199,11 @@ isUnboxed = \case Unboxed -> True; _ -> False isWholeFrac :: HsExpr GhcPs -> Bool-#if defined (GHCLIB_API_HEAD) || defined(GHCLIB_API_902)++#if defined (GHCLIB_API_HEAD)+isWholeFrac (HsLit _ (HsRat _ fl@FL{} _)) = denominator (rationalFromFractionalLit fl) == 1+isWholeFrac (HsOverLit _ (OverLit _ (HsFractional fl@FL {}) )) = denominator (rationalFromFractionalLit fl) == 1+#elif defined(GHCLIB_API_902) isWholeFrac (HsLit _ (HsRat _ fl@FL{} _)) = denominator (rationalFromFractionalLit fl) == 1 isWholeFrac (HsOverLit _ (OverLit _ (HsFractional fl@FL {}) _)) = denominator (rationalFromFractionalLit fl) == 1 #else