From 3698d614bca4f88c2ffb0c4bf7867e8c5b140b8a Mon Sep 17 00:00:00 2001
From: Teddy Wing
Date: Mon, 11 Sep 2017 00:48:23 +0200
Subject: Bot: Try adding a BotConfig type

Tried adding this to replicate some code I had been reading, but
ultimately it didn't really change anything. In the end I don't need
this type, at least not right now, but it was an interesting exercise I
suppose.
---
 src/Plugin/GitHubCommit.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/Plugin/GitHubCommit.hs')

diff --git a/src/Plugin/GitHubCommit.hs b/src/Plugin/GitHubCommit.hs
index ad81e2f..fef4474 100644
--- a/src/Plugin/GitHubCommit.hs
+++ b/src/Plugin/GitHubCommit.hs
@@ -1,3 +1,4 @@
+-- {-# LANGUAGE FlexibleContexts #-}
 {-# LANGUAGE OverloadedStrings #-}
 
 module Plugin.GitHubCommit
@@ -14,12 +15,13 @@ import Database.SQLite.Simple.FromRow
 import Text.Regex.TDFA
 
 -- import Config (Config(..))
-import Bot (Bot, runBot)
+import Bot (Bot, runBot, BotConfig)
 import I18n
 import qualified Message as M
 import qualified CliOptions as Cli (lang)
 import Plugin.Base
 
+-- gitHubCommit :: BotConfig m => m Plugin
 gitHubCommit :: Bot Plugin
 gitHubCommit = do
     cfg <- ask
-- 
cgit v1.2.3