aboutsummaryrefslogtreecommitdiffstats
path: root/src/Plugin/Base.hs
diff options
context:
space:
mode:
authorTeddy Wing2017-08-10 23:54:57 +0200
committerTeddy Wing2017-08-10 23:54:57 +0200
commitccf11b5467b2f41690390a20bc50a02c006be3f0 (patch)
tree376eff572bd78446f466c15672ab09df3e421e2e /src/Plugin/Base.hs
parent465f32c216bd9a9bd695f0a2f0f3a08369c51e9a (diff)
downloadsorbot-ccf11b5467b2f41690390a20bc50a02c006be3f0.tar.bz2
gitHubCommitAction: Get error handling to work using `Either`
Get rid of the `fail` and use an `Either` for error handling instead. This allows us to send back the response string like before, but provide an additional error message when no data comes back from the database query. Remove the old error handling code I had tried to set up previously.
Diffstat (limited to 'src/Plugin/Base.hs')
-rw-r--r--src/Plugin/Base.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Plugin/Base.hs b/src/Plugin/Base.hs
index b752fd1..fe3a0f8 100644
--- a/src/Plugin/Base.hs
+++ b/src/Plugin/Base.hs
@@ -9,7 +9,7 @@ import Database.SQLite.Simple
import Message
-- TODO: Replace Connection with a type class
-type PluginAction = Message -> Connection -> IO String
+type PluginAction = Message -> Connection -> IO (Either String String)
data Plugin = Plugin
{ matchRegex :: String