From cff947cbebdff182f2d6c37a5f500911b0860fa5 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Edward=20Tj=C3=B6rnhammar?= Date: Fri, 4 Nov 2016 12:46:21 +0100 Subject: [PATCH] Ensure plugins are dynamically loadable --- src/Network/Gitit/Plugins.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/Network/Gitit/Plugins.hs b/src/Network/Gitit/Plugins.hs index 0871d7a6b..ac85efe58 100644 --- a/src/Network/Gitit/Plugins.hs +++ b/src/Network/Gitit/Plugins.hs @@ -29,6 +29,7 @@ import System.Log.Logger (logM, Priority(..)) #ifdef _PLUGINS import Data.List (isInfixOf, isPrefixOf) import GHC +import DynFlags (gopt_set, GeneralFlag(..)) import GHC.Paths import Unsafe.Coerce @@ -37,7 +38,7 @@ loadPlugin pluginName = do logM "gitit" WARNING ("Loading plugin '" ++ pluginName ++ "'...") runGhc (Just libdir) $ do dflags <- getSessionDynFlags - setSessionDynFlags dflags + setSessionDynFlags (gopt_set dflags Opt_BuildDynamicToo) defaultCleanupHandler dflags $ do -- initDynFlags unless ("Network.Gitit.Plugin." `isPrefixOf` pluginName)