wrath/shaniqua-core
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

lol

Browse Source
This commit is contained in:
Boris Jerkson 2023-03-09 00:57:25 -08:00
parent 6b2aa321a4
commit 7eeee47f2f
3 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Carrion/Plugin/TCL.hs
View File

@ -159,7 +159,7 @@ processCommand wi s ip = do
case st of case st of
0 -> tcl_GetStringResult interp >>= \rs -> if nullPtr == rs then dumpDebug ("Command: " ++ c ++" ; returned a null pointer result.") >> return "FAILED" else peekCString rs >>= \nrs -> dumpDebug ("Output of command: " ++ c ++ " ;" ++ nrs ++ ";") >> return nrs 0 -> tcl_GetStringResult interp >>= \rs -> if nullPtr == rs then dumpDebug ("Command: " ++ c ++" ; returned a null pointer result.") >> return "FAILED" else peekCString rs >>= \nrs -> dumpDebug ("Output of command: " ++ c ++ " ;" ++ nrs ++ ";") >> return nrs
_ -> errorInfo >> tcl_GetStringResult interp >>= peekCString _ -> errorInfo >> tcl_GetStringResult interp >>= peekCString
performFromIRC = doTheTCL $ "pub:tcl:perform \"" ++ sewNick ++ "\" \"" ++ sewMask ++ "\" {} \"" ++ sewChan ++ "\" {" ++ sewCmd ++ "}" performFromIRC = doTheTCL $ "pub:tcl:perform {" ++ sewNick ++ "} {" ++ sewMask ++ "} {} {" ++ sewChan ++ "} {" ++ sewCmd ++ "}"
performAdminLevel = doTheTCL sewCmd performAdminLevel = doTheTCL sewCmd
res <- if (ip) then performAdminLevel else performFromIRC res <- if (ip) then performAdminLevel else performFromIRC
atomically $ putTMVar i interp atomically $ putTMVar i interp

8
stack.yaml.lock
View File

@ -10,14 +10,14 @@ packages:
sha256: 5eb50363b5f7a5539d91db5ce245adc2fd5bec634c58ad8c9498fcfd1c183d69 sha256: 5eb50363b5f7a5539d91db5ce245adc2fd5bec634c58ad8c9498fcfd1c183d69
name: plugins name: plugins
version: 1.6.0 version: 1.6.0
git: git@github.com:v-e-h/plugins.git git: gitea@gitea.phosphoros.delivery:wrath/shaniqua-plugins.git
pantry-tree: pantry-tree:
size: 34501 size: 34501
sha256: bcd754b80924fc9c852557ea2a79947eab426e7fc6ef07ae82bccac9e7c4ab91 sha256: bcd754b80924fc9c852557ea2a79947eab426e7fc6ef07ae82bccac9e7c4ab91
commit: e175d3c2ea9a8cc08126d37d9e30a327d8dc8b29 commit: c59e1df710eea9db5e98d3a2d989db4885bdf817
original: original:
git: git@github.com:v-e-h/plugins.git git: gitea@gitea.phosphoros.delivery:wrath/shaniqua-plugins.git
commit: e175d3c2ea9a8cc08126d37d9e30a327d8dc8b29 commit: c59e1df710eea9db5e98d3a2d989db4885bdf817
- completed: - completed:
hackage: haskeline-0.8.1.0@sha256:6a6158c90b929ce7aa5331ff5e9819aa32c7df8f4a7ba324b3cc055ee96b48cb,5818 hackage: haskeline-0.8.1.0@sha256:6a6158c90b929ce7aa5331ff5e9819aa32c7df8f4a7ba324b3cc055ee96b48cb,5818
pantry-tree: pantry-tree:

2
state

@ -1 +1 @@
Subproject commit 18d6107288bce2d3cfe9d6ee61bc60cea967a64c Subproject commit f0aedebf98d293cd3d9c13a40fd35c26632399fe