Fix inlineconfig additions for ghc-8.4 + compat
The semigroup changes are a bit confusing when aiming for backwards-compat.pull/136/head
parent
1fc007591c
commit
17fb271694
|
@ -432,7 +432,7 @@ parsePrintModuleTests conf filename input = do
|
|||
toLocal :: Config -> ExactPrint.Anns -> PPMLocal a -> PPM a
|
||||
toLocal conf anns m = do
|
||||
(x, write) <- lift $ MultiRWSS.runMultiRWSTAW (conf :+: anns :+: HNil) HNil $ m
|
||||
MultiRWSS.mGetRawW >>= \w -> MultiRWSS.mPutRawW (w <> write)
|
||||
MultiRWSS.mGetRawW >>= \w -> MultiRWSS.mPutRawW (w `mappend` write)
|
||||
pure x
|
||||
|
||||
ppModule :: GenLocated SrcSpan (HsModule GhcPs) -> PPM ()
|
||||
|
@ -495,7 +495,7 @@ withTransformedAnns ast m = do
|
|||
in annsBalanced
|
||||
|
||||
|
||||
getDeclBindingNames :: LHsDecl RdrName -> [String]
|
||||
getDeclBindingNames :: LHsDecl GhcPs -> [String]
|
||||
getDeclBindingNames (L _ decl) = case decl of
|
||||
SigD (TypeSig ns _) -> ns <&> \(L _ n) -> Text.unpack (rdrNameToText n)
|
||||
ValD (FunBind (L _ n) _ _ _ _) -> [Text.unpack $ rdrNameToText n]
|
||||
|
|
|
@ -3,7 +3,7 @@ resolver: lts-9.0
|
|||
extra-deps:
|
||||
- monad-memo-0.4.1
|
||||
- czipwith-1.0.1.0
|
||||
- butcher-1.3.1.0
|
||||
- butcher-1.3.1.1
|
||||
- data-tree-print-0.1.0.0
|
||||
- deque-0.2
|
||||
- ghc-exactprint-0.5.6.0
|
||||
|
|
|
@ -2,7 +2,7 @@ resolver: lts-11.1
|
|||
|
||||
extra-deps:
|
||||
- czipwith-1.0.1.0
|
||||
- butcher-1.3.1.0
|
||||
- butcher-1.3.1.1
|
||||
|
||||
packages:
|
||||
- .
|
||||
|
|
|
@ -2,7 +2,7 @@ resolver: lts-11.1
|
|||
|
||||
extra-deps:
|
||||
- czipwith-1.0.1.0
|
||||
- butcher-1.3.1.0
|
||||
- butcher-1.3.1.1
|
||||
|
||||
packages:
|
||||
- .
|
||||
|
|
Loading…
Reference in New Issue