Adapt for czipwith-1.0.1.0
parent
e0e1e5038e
commit
21ef8b296c
|
@ -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
|
||||
}
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue