Try to set up error handling for GitHub Commit plugin

This doesn't really work, but I wanted to hold onto this step. I've been
reading about error handling, notably this article:

http://www.randomhacks.net/2007/03/10/haskell-8-ways-to-report-errors/

I kind of like the idea of just using `fail`, and being able to have
that set up some polymorphism to handle `Maybe`, `Either`, and `IO`
situations, but today read some literature that discouraged using fail,
since not all monads implement it.

Anyway, this code doesn't print out the error string like I intended it
to, so I guess I'll have to use `Either` instead.

1 files changed, 9 insertions, 1 deletions

diff --git a/src/Lib.hs b/src/Lib.hs
index b98c18d..3b49136 100644
--- a/src/Lib.hs
+++ b/src/Lib.hs
@@ -2,6 +2,11 @@ module Lib
     ( someFunc
     ) where
 
+import Control.Exception (catch)
+-- import System.Environment
+-- import System.IO
+-- import System.IO.Error
+
 import Database.SQLite.Simple
 
 import Message
@@ -17,5 +22,8 @@ someFunc = do
         Just plugin = matchPlugin message
     dbConn <- open "db/sorbot_development.sqlite3"
     response <- performPlugin plugin message dbConn
-    putStrLn response
+    putStrLn response `catch` handleError
     close dbConn
+
+handleError :: IOError -> IO ()
+handleError err = putStrLn $ show err