src/Lib.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

module Lib
    ( someFunc
    ) where

import Control.Exception (catch)
-- import System.Environment
-- import System.IO
-- import System.IO.Error

import Database.SQLite.Simple

import Message
import Plugin

someFunc :: IO ()
someFunc = do
    let message = Message
            { text    = "75ac7b18a009ffe7a77a17a61d95c01395f36b44"
            , channel = "#a-channel"
            , nick    = "anon"
            }
        Just plugin = matchPlugin message
    dbConn <- open "db/sorbot_development.sqlite3"
    response <- performPlugin plugin message dbConn
    putStrLn response `catch` handleError
    close dbConn

handleError :: IOError -> IO ()
handleError err = putStrLn $ show err