polysemy-research/polysemy
1
1
Fork 0
mirror of https://github.com/polysemy-research/polysemy.git synced 2024-11-29 22:52:37 +03:00
Code Issues Projects Releases Wiki Activity

Copy docs of effect constructors to functions

Browse Source
This commit is contained in:
TheMatten 2022-01-17 00:11:45 +01:00 committed by Torsten Schmits
parent 8450bff3d8
commit 22c04e631f
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/Polysemy/Internal/TH/Effect.hs
View File

@ -1,4 +1,4 @@
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE CPP, TemplateHaskell #-}
{-# OPTIONS_HADDOCK not-home #-}
@ -31,6 +31,9 @@ module Polysemy.Internal.TH.Effect
import Control.Monad
import Language.Haskell.TH
#if __GLASGOW_HASKELL__ >= 902
import Language.Haskell.TH.Syntax (addModFinalizer)
#endif
import Language.Haskell.TH.Datatype
import Polysemy.Internal.TH.Common
@ -152,7 +155,10 @@ genSig cli
genDec :: Bool -> ConLiftInfo -> Q [Dec]
genDec should_mk_sigs cli = do
let fun_args_names = fst <$> cliFunArgs cli
#if __GLASGOW_HASKELL__ >= 902
doc <- getDoc $ DeclDoc $ cliConName cli
maybe (pure ()) (addModFinalizer . putDoc (DeclDoc $ cliFunName cli)) doc
#endif
pure
[ PragmaD $ InlineP (cliFunName cli) Inlinable ConLike AllPhases
, FunD (cliFunName cli)