blob: 3b49136f3630abf7fb0af4cfd6e5896fee4cb8b5 (
plain)
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
|