data-effects-th 0.4.2.0 → 0.4.2.1
raw patch · 2 files changed
+9/−16 lines, 2 filesdep −formattingPVP ok
version bump matches the API change (PVP)
Dependencies removed: formatting
API changes (from Hackage documentation)
Files
data-effects-th.cabal view
@@ -1,6 +1,6 @@ cabal-version: 3.0 name: data-effects-th-version: 0.4.2.0+version: 0.4.2.1 -- A short (one-line) description of the package. synopsis: Template Haskell utilities for the data-effects library.@@ -42,7 +42,7 @@ source-repository head type: git location: https://github.com/sayo-hs/data-effects- tag: v0.4.2.0+ tag: v0.4.2.1 subdir: data-effects-th library@@ -72,7 +72,6 @@ text >= 2.0 && < 2.2, data-default >= 0.7.1 && < 0.9, infinite-list ^>= 0.1.1,- formatting ^>= 7.2.0, hs-source-dirs: src ghc-options: -Wall
src/Data/Effect/HFunctor/TH/Internal.hs view
@@ -71,7 +71,6 @@ import Data.List.Infinite (Infinite, prependList) import Data.Maybe (fromMaybe) import Data.Text qualified as T-import Formatting (int, sformat, shown, stext, (%)) import Language.Haskell.TH ( Body (NormalB), Clause (Clause),@@ -175,18 +174,13 @@ map (pure . tyVarType) hfArgs `prependList` error ( T.unpack $- sformat- ( "Too many data type arguments in use. The number of usable type arguments in the data type ‘"- % shown- % "’ to be derived is "- % int- % ". ("- % stext- % ")"- )- name- (length hfArgs)- (T.intercalate ", " $ map ((\t -> "‘" <> t <> "’") . T.pack . nameBase . tyVarName) hfArgs)+ "Too many data type arguments in use. The number of usable type arguments in the data type ‘"+ <> T.pack (nameBase name)+ <> "’ to be derived is "+ <> T.pack (show $ length hfArgs)+ <> ". ("+ <> T.intercalate ", " (map ((\t -> "‘" <> t <> "’") . T.pack . nameBase . tyVarName) hfArgs)+ <> ")" ) hfmapClauses <- mapM hfmapClause cons