Adapt for czipwith-1.0.1.0
parent
e0e1e5038e
commit
21ef8b296c
|
@ -109,7 +109,7 @@ library {
|
||||||
, deepseq >=1.4.2.0 && <1.5
|
, deepseq >=1.4.2.0 && <1.5
|
||||||
, semigroups >=0.18.2 && <0.19
|
, semigroups >=0.18.2 && <0.19
|
||||||
, cmdargs >=0.10.14 && <0.11
|
, 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
|
, ghc-boot-th >=8.0.1 && <8.3
|
||||||
, filepath >=1.4.1.0 && <1.5
|
, filepath >=1.4.1.0 && <1.5
|
||||||
}
|
}
|
||||||
|
|
|
@ -5,6 +5,9 @@
|
||||||
{-# LANGUAGE DeriveDataTypeable #-}
|
{-# LANGUAGE DeriveDataTypeable #-}
|
||||||
|
|
||||||
module Language.Haskell.Brittany.Internal.Config.Types
|
module Language.Haskell.Brittany.Internal.Config.Types
|
||||||
|
( module Language.Haskell.Brittany.Internal.Config.Types
|
||||||
|
, cMap
|
||||||
|
)
|
||||||
where
|
where
|
||||||
|
|
||||||
|
|
||||||
|
@ -277,8 +280,12 @@ data ExactPrintFallbackMode
|
||||||
-- A PROGRAM BY TRANSFORMING IT.
|
-- A PROGRAM BY TRANSFORMING IT.
|
||||||
deriving (Show, Generic, Data)
|
deriving (Show, Generic, Data)
|
||||||
|
|
||||||
cMap :: CZipWith k => (forall a . f a -> g a) -> k f -> k g
|
instance CFunctor CDebugConfig
|
||||||
cMap f c = cZipWith (\_ -> f) c c
|
instance CFunctor CLayoutConfig
|
||||||
|
instance CFunctor CErrorHandlingConfig
|
||||||
|
instance CFunctor CForwardOptions
|
||||||
|
instance CFunctor CPreProcessorConfig
|
||||||
|
instance CFunctor CConfig
|
||||||
|
|
||||||
deriveCZipWith ''CDebugConfig
|
deriveCZipWith ''CDebugConfig
|
||||||
deriveCZipWith ''CLayoutConfig
|
deriveCZipWith ''CLayoutConfig
|
||||||
|
|
Loading…
Reference in New Issue