From 06274599782dec28348dd52e20a7ce0232a9d616 Mon Sep 17 00:00:00 2001
From: Mart Lubbers <mart@martlubbers.net>
Date: Wed, 13 Dec 2017 16:17:52 +0100
Subject: [PATCH] Update

---
 GenIRC.dcl     | 1 +
 cloogleirc.icl | 4 ++--
 libcloogle     | 2 +-
 3 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/GenIRC.dcl b/GenIRC.dcl
index 896362d..789c976 100644
--- a/GenIRC.dcl
+++ b/GenIRC.dcl
@@ -1,5 +1,6 @@
 definition module GenIRC
 
+import StdGeneric
 from IRC import :: IRCCommand, :: CSepList
 from Data.Either import :: Either
 from Data.Maybe import :: Maybe
diff --git a/cloogleirc.icl b/cloogleirc.icl
index 22a2193..4eccb0e 100644
--- a/cloogleirc.icl
+++ b/cloogleirc.icl
@@ -20,7 +20,7 @@ import System.Time
 import Control.Applicative
 import qualified Control.Monad as CM
 import qualified Data.Map as DM
-from Control.Monad import class Monad, instance Monad Maybe, >>=
+from Control.Monad import class Monad(bind), instance Monad Maybe, >>=
 from Text.Encodings.UrlEncoding import urlEncode
 import System.CommandLine
 import Internet.HTTP
@@ -115,7 +115,7 @@ Start w
 //| isError bs = (Just $ "\n" +++ fromError bs +++ "\n", snd $ fclose io w)
 # (Ok bs) = bs
 # (merr, io, w) = bot (bs.bs_server, bs.bs_port) (startup bs) shutdown io (process bs.bs_strftime) w
-= (Nothing, w)//= (merr, snd $ fclose io w)
+= (merr, snd $ fclose io w)
 	where
 		parseCLI :: [String] -> MaybeErrorString BotSettings
 		parseCLI [] = Ok
diff --git a/libcloogle b/libcloogle
index d85bd3c..c4b1f32 160000
--- a/libcloogle
+++ b/libcloogle
@@ -1 +1 @@
-Subproject commit d85bd3c5ccf6fdb82c8f62a08228cc8b6a0ac84f
+Subproject commit c4b1f32588aa2c3227e8b369bbd823c1a8b549ca
-- 
2.20.1