From 21ef8b296c5e083c75030c5f5dd8484032ab20e6 Mon Sep 17 00:00:00 2001 From: Lennart Spitzner Date: Thu, 5 Apr 2018 21:06:44 +0200 Subject: [PATCH] Adapt for czipwith-1.0.1.0 --- brittany.cabal | 2 +- .../Haskell/Brittany/Internal/Config/Types.hs | 11 +++++++++-- 2 files changed, 10 insertions(+), 3 deletions(-) diff --git a/brittany.cabal b/brittany.cabal index c40c43e..e8f7fab 100644 --- a/brittany.cabal +++ b/brittany.cabal @@ -109,7 +109,7 @@ library { , deepseq >=1.4.2.0 && <1.5 , semigroups >=0.18.2 && <0.19 , cmdargs >=0.10.14 && <0.11 - , czipwith >=1.0.0.0 && <1.1 + , czipwith >=1.0.1.0 && <1.1 , ghc-boot-th >=8.0.1 && <8.3 , filepath >=1.4.1.0 && <1.5 } diff --git a/src/Language/Haskell/Brittany/Internal/Config/Types.hs b/src/Language/Haskell/Brittany/Internal/Config/Types.hs index dc0300f..d28527d 100644 --- a/src/Language/Haskell/Brittany/Internal/Config/Types.hs +++ b/src/Language/Haskell/Brittany/Internal/Config/Types.hs @@ -5,6 +5,9 @@ {-# LANGUAGE DeriveDataTypeable #-} module Language.Haskell.Brittany.Internal.Config.Types + ( module Language.Haskell.Brittany.Internal.Config.Types + , cMap + ) where @@ -277,8 +280,12 @@ data ExactPrintFallbackMode -- A PROGRAM BY TRANSFORMING IT. deriving (Show, Generic, Data) -cMap :: CZipWith k => (forall a . f a -> g a) -> k f -> k g -cMap f c = cZipWith (\_ -> f) c c +instance CFunctor CDebugConfig +instance CFunctor CLayoutConfig +instance CFunctor CErrorHandlingConfig +instance CFunctor CForwardOptions +instance CFunctor CPreProcessorConfig +instance CFunctor CConfig deriveCZipWith ''CDebugConfig deriveCZipWith ''CLayoutConfig