Adapt for czipwith-1.0.1.0

pull/136/head
Lennart Spitzner 2018-04-05 21:06:44 +02:00
parent e0e1e5038e
commit 21ef8b296c
2 changed files with 10 additions and 3 deletions

View File

@ -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
}

View File

@ -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