unfuck this on nix

src/Carrion/Plugin/IO/IRC/Client.hs

@@ -227,7 +227,7 @@ initPlugin mh = do
             -- First validate with the standard function
             res <- (onServerCertificate $ clientHooks cpara) cs vc sid cc
           -- Then strip out non-issues
-            return $ filter (`notElem` [UnknownCA, SelfSigned]) res
+            return $ filter (`notElem` [UnknownCA, SelfSigned, Expired]) res
           myClientConfig = (tlsClientConfig myPort (encodeUtf8 myHost)) { tlsClientTLSSettings = TLSSettings cpara
                                                                           { clientHooks = (clientHooks cpara)
                                                                             { onServerCertificate = validate }

src/Carrion/Plugin/TCL.hs

@@ -95,13 +95,13 @@ lEN_AUTO = -1
 eVAL_FLAGS_CLEAR :: Int
 eVAL_FLAGS_CLEAR = 0
 
-dumpDebug :: Monad m => p -> m ()
-dumpDebug _ = return ()
-
+--dumpDebug :: Monad m => p -> m ()
+--dumpDebug _ = return ()
+dumpDebug = putStrLn
 initPlugin :: Manhole -> IO InitStatus
 initPlugin manhole = do
   myFakeArg0 <- getExecutablePath >>= newCString
-  myTCLDl <- dlopen "/usr/lib/libtcl8.6.so" [RTLD_NOW]
+  myTCLDl <- dlopen "libtcl8.6.so" [RTLD_NOW]
   let bless name convf = dlsym myTCLDl name >>= \fp -> return $ convf $ fp
   tcl_CreateInterp <- bless "Tcl_CreateInterp" mkTcl_CreateInterp
   interp <- tcl_CreateInterp