diff options
Diffstat (limited to 'src/Plugin/GitHubCommit.hs')
| -rw-r--r-- | src/Plugin/GitHubCommit.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Plugin/GitHubCommit.hs b/src/Plugin/GitHubCommit.hs index a1e5ce4..335c664 100644 --- a/src/Plugin/GitHubCommit.hs +++ b/src/Plugin/GitHubCommit.hs @@ -7,7 +7,8 @@ module Plugin.GitHubCommit import Control.Monad.IO.Class (liftIO) import Control.Monad.Trans.Class (lift) -import Control.Monad.Trans.Reader (ask, asks) +-- import Control.Monad.Trans.Reader (ask, asks) +import Control.Monad.Reader (ask, asks) import qualified Data.Text as T import Database.SQLite.Simple @@ -47,7 +48,7 @@ gitHubCommitAction message = do respond rs where - respond :: Bot (Either T.Text T.Text) + respond :: [RepoUrlRow] -> Bot (Either T.Text T.Text) respond [] = do cfg <- ask -- lang <- Cli.lang |