fixup

GypsFulvus.cabal

@@ -81,7 +81,6 @@ executable GypsFulvus
          other-modules: GypsFulvus.PluginStuff,GypsFulvus, Carrion.Plugin.IO.STDIO, Carrion.Plugin.TCL, Carrion.Plugin.IO.IRC.Client
          exposed-modules: GypsFulvus
          extra-libraries:     tcl8.6
---         extra-include-dirs:  /var/run/current-system/sw/include
          Includes:            tcl.h,
                               src/tclstubswrapper/tclstubs.h
          C-Sources:           src/tclstubswrapper/tclstubs.c

src/Carrion/Plugin/TCL.hs

@@ -159,7 +159,7 @@ processCommand wi s ip = do
         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
           _ -> 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
   res <- if (ip) then performAdminLevel else performFromIRC
   atomically $ putTMVar i interp

src/smeggdrop/smeggdrop/interpx.tcl

@@ -167,9 +167,9 @@ method {inspect proc} proc {
       if ![info exists vars_existing_before_eval($var)] {
         $self did create var $var
       } else {
-#        if [info exists vars_touched_during_eval($var)] {
+        if [info exists vars_touched_during_eval($var)] {
           $self did update var $var
-#        }
+        }
         unset vars_existing_before_eval($var)
       }
     }

stack.yaml

@@ -28,11 +28,11 @@ resolver: lts-16.13
 #   subdirs:
 #   - auto-update
 #   - wai
-nix:
-  enable: true
-  packages:
-    - "zlib"
-    - "tcl"
+#nix:
+#  enable: true
+#  packages:
+#    - "zlib"
+#    - "tcl"
 
 packages:
 - .

stack.yaml.lock

@@ -5,29 +5,26 @@
 
 packages:
 - completed:
-    cabal-file:
-      size: 2531
-      sha256: 5eb50363b5f7a5539d91db5ce245adc2fd5bec634c58ad8c9498fcfd1c183d69
+    commit: c59e1df710eea9db5e98d3a2d989db4885bdf817
+    git: gitea@gitea.phosphoros.delivery:wrath/shaniqua-plugins.git
     name: plugins
-    version: 1.6.0
-    git: gitea@gitea.phosphoros.delivery:wrath/shaniqua-plugins.git
     pantry-tree:
-      size: 34501
       sha256: bcd754b80924fc9c852557ea2a79947eab426e7fc6ef07ae82bccac9e7c4ab91
-    commit: c59e1df710eea9db5e98d3a2d989db4885bdf817
+      size: 34501
+    version: 1.6.0
   original:
-    git: gitea@gitea.phosphoros.delivery:wrath/shaniqua-plugins.git
     commit: c59e1df710eea9db5e98d3a2d989db4885bdf817
+    git: gitea@gitea.phosphoros.delivery:wrath/shaniqua-plugins.git
 - completed:
     hackage: haskeline-0.8.1.0@sha256:6a6158c90b929ce7aa5331ff5e9819aa32c7df8f4a7ba324b3cc055ee96b48cb,5818
     pantry-tree:
-      size: 2955
       sha256: b80332551d20389637851299b618679a8435531bed1fed905195ae7163526999
+      size: 2955
   original:
     hackage: haskeline-0.8.1.0
 snapshots:
 - completed:
+    sha256: 6ee17f7996e5bc75ae4406250841f1362ad4196418a4d90a0615ff4f26ac98df
     size: 532381
     url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/16/13.yaml
-    sha256: 6ee17f7996e5bc75ae4406250841f1362ad4196418a4d90a0615ff4f26ac98df
   original: lts-16.13

state

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