pkgs/development/tools/haskell/lambdabot/custom-config.patch

   1 diff --git a/src/Main.hs b/src/Main.hs
   2 index 61da2f3..39e5c9b 100644
   3 --- a/src/Main.hs
   4 +++ b/src/Main.hs
   5 @@ -73,11 +73,14 @@ main = do
   6      config' <- sequence config
   7      dir <- P.getDataDir
   8      exitWith <=< lambdabotMain modulesInfo $
   9 -        [dataDir ==> dir, lbVersion ==> P.version] ++ config'
  10 +        [dataDir ==> dir, lbVersion ==> P.version] ++ configInfo ++ config'
  11
  12  -- special online target for ghci use
  13  online :: [String] -> IO ()
  14  online strs = do
  15      dir <- P.getDataDir
  16 -    void $ lambdabotMain modulesInfo
  17 -        [dataDir ==> dir, lbVersion ==> P.version, onStartupCmds ==> strs]
  18 +    void $ lambdabotMain modulesInfo $
  19 +        [dataDir ==> dir, lbVersion ==> P.version, onStartupCmds ==> strs] ++ configInfo
  20 +
  21 +configInfo :: [DSum Config Identity]
  22 +configInfo = @config@
  23 diff --git a/src/Modules.hs b/src/Modules.hs
  24 index 036ea1f..eaafa50 100644
  25 --- a/src/Modules.hs
  26 +++ b/src/Modules.hs
  27 @@ -14,10 +14,15 @@ import Lambdabot.Plugin.Reference
  28  import Lambdabot.Plugin.Social
  29
  30  modulesInfo :: Modules
  31 -modulesInfo = $(modules $ corePlugins
  32 -    ++ haskellPlugins
  33 -    ++ ["irc", "localtime", "topic"] -- ircPlugins
  34 -    ++ ["dummy", "fresh", "todo"] -- miscPlugins
  35 -    ++ ["bf", "dice", "elite", "filter", "quote", "slap", "unlambda", "vixen"] -- noveltyPlugins
  36 -    ++ referencePlugins
  37 -    ++ socialPlugins)
  38 +modulesInfo =
  39 +  $(modules $
  40 +    let oldDefaultModules =
  41 +          corePlugins
  42 +          ++ haskellPlugins
  43 +          ++ ["irc", "localtime", "topic"] -- ircPlugins
  44 +          ++ ["dummy", "fresh", "todo"] -- miscPlugins
  45 +          ++ ["bf", "dice", "elite", "filter", "quote", "slap", "unlambda", "vixen"] -- noveltyPlugins
  46 +          ++ referencePlugins
  47 +          ++ socialPlugins
  48 +    in @modules@
  49 +   )