ddump-splices option causes error in interactive mode

I believe that the generated splices adds an extra parameter to a function which isn't expecting it.

```
Debugger entered--Lisp error: (wrong-number-of-arguments nil 0)
signal(wrong-number-of-arguments (nil 0))
haskell-check-paint-overlay(#> t 6 "Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ju x_a8Jv -> f_a8Ju (x_a8Jv)" "C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs" splice nil 3)
haskell-process-errors-warnings(#> ((name . "th-filewatch-test") (next-error-region # . #) (next-error-locus) (interactive-buffer . #) (current-dir . "c:/Users/cody/Desktop/th-filewatch-test/") (target . "") (cabal-checksum . "7af21a885cd73e3d88c828b92cd2cce8") (cabal-dir . "c:/Users/cody/Desktop/th-filewatch-test/") (process (name . "th-filewatch-test") (current-response-cursor . 362) (current-response . "[1 of 2] Compiling Curry ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Curry.hs, interpreted )\n[2 of 2] Compiling Main ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs, interpreted )\nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ju x_a8Jv -> f_a8Ju (x_a8Jv)\nOk, modules loaded: Main, Curry.\nCollecting type info for 2 module(s) ... \nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ki x_a8Kj -> f_a8Ki (x_a8Kj)\n") (command-queue) (inferior-process . #) (is-restarting) (current-command . [cl-struct-haskell-command (#0 ((name . "th-filewatch-test") (current-response-cursor . 362) (current-response . "[1 of 2] Compiling Curry ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Curry.hs, interpreted )\n[2 of 2] Compiling Main ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs, interpreted )\nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ju x_a8Jv -> f_a8Ju (x_a8Jv)\nOk, modules loaded: Main, Curry.\nCollecting type info for 2 module(s) ... \nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ki x_a8Kj -> f_a8Ki (x_a8Kj)\n") (command-queue) (inferior-process . #) (is-restarting) #2 (suggested-imported) (sent-stdin) (evaluating) (session (name . "th-filewatch-test") (next-error-region # . #) (next-error-locus) (interactive-buffer . #) (current-dir . "c:/Users/cody/Desktop/th-filewatch-test/") (target . "") (cabal-checksum . "7af21a885cd73e3d88c828b92cd2cce8") (cabal-dir . "c:/Users/cody/Desktop/th-filewatch-test/") #1)) "load \"c:/Users/cody/Desktop/th-filewatch-test/src/Main.hs\"" nil #>) #[257 "\300
A@\301\302AA@\"\"\207" [haskell-process-send-string format ":%s"] 6 "\n\n(fn STATE)"] #[514 "\300A@\301#\207" [haskell-process-live-build nil] 6 "\n\n(fn STATE BUFFER)"] #[514 "\300@A@AAA@AAAA@%\207" [haskell-process-load-complete] 8 "\n\n(fn STATE RESPONSE)"]]) (suggested-imported) (sent-stdin) (evaluating) (session (name . "th-filewatch-test") (next-error-region # . #) (next-error-locus) (interactive-buffer . #) (current-dir . "c:/Users/cody/Desktop/th-filewatch-test/") (target . "") (cabal-checksum . "7af21a885cd73e3d88c828b92cd2cce8") (cabal-dir . "c:/Users/cody/Desktop/th-filewatch-test/") #1))) ((name . "th-filewatch-test") (current-response-cursor . 362) (current-response . "[1 of 2] Compiling Curry ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Curry.hs, interpreted )\n[2 of 2] Compiling Main ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs, interpreted )\nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ju x_a8Jv -> f_a8Ju (x_a8Jv)\nOk, modules loaded: Main, Curry.\nCollecting type info for 2 module(s) ... \nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ki x_a8Kj -> f_a8Ki (x_a8Kj)\n") (command-queue) (inferior-process . #) (is-restarting) (current-command . [cl-struct-haskell-command (((name . "th-filewatch-test") (next-error-region # . #) (next-error-locus) (interactive-buffer . #) (current-dir . "c:/Users/cody/Desktop/th-filewatch-test/") (target . "") (cabal-checksum . "7af21a885cd73e3d88c828b92cd2cce8") (cabal-dir . "c:/Users/cody/Desktop/th-filewatch-test/") (process (name . "th-filewatch-test") (current-response-cursor . 362) (current-response . "[1 of 2] Compiling Curry ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Curry.hs, interpreted )\n[2 of 2] Compiling Main ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs, interpreted )\nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ju x_a8Jv -> f_a8Ju (x_a8Jv)\nOk, modules loaded: Main, Curry.\nCollecting type info for 2 module(s) ... \nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ki x_a8Kj -> f_a8Ki (x_a8Kj)\n") (command-queue) (inferior-process . #) (is-restarting) #1 (suggested-imported) (sent-stdin) (evaluating) (session (name . "th-filewatch-test") (next-error-region # . #) (next-error-locus) (interactive-buffer . #) (current-dir . "c:/Users/cody/Desktop/th-filewatch-test/") (target . "") (cabal-checksum . "7af21a885cd73e3d88c828b92cd2cce8") (cabal-dir . "c:/Users/cody/Desktop/th-filewatch-test/") #5))) #0 "load \"c:/Users/cody/Desktop/th-filewatch-test/src/Main.hs\"" nil #>) #[257 "\300
A@\301\302AA@\"\"\207" [haskell-process-send-string format ":%s"] 6 "\n\n(fn STATE)"] #[514 "\300A@\301#\207" [haskell-process-live-build nil] 6 "\n\n(fn STATE BUFFER)"] #[514 "\300@A@AAA@AAAA@%\207" [haskell-process-load-complete] 8 "\n\n(fn STATE RESPONSE)"]]) (suggested-imported) (sent-stdin) (evaluating) (session (name . "th-filewatch-test") (next-error-region # . #) (next-error-locus) (interactive-buffer . #) (current-dir . "c:/Users/cody/Desktop/th-filewatch-test/") (target . "") (cabal-checksum . "7af21a885cd73e3d88c828b92cd2cce8") (cabal-dir . "c:/Users/cody/Desktop/th-filewatch-test/") (process (name . "th-filewatch-test") (current-response-cursor . 362) (current-response . "[1 of 2] Compiling Curry ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Curry.hs, interpreted )\n[2 of 2] Compiling Main ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs, interpreted )\nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ju x_a8Jv -> f_a8Ju (x_a8Jv)\nOk, modules loaded: Main, Curry.\nCollecting type info for 2 module(s) ... \nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ki x_a8Kj -> f_a8Ki (x_a8Kj)\n") (command-queue) (inferior-process . #) (is-restarting) (current-command . [cl-struct-haskell-command (((name . "th-filewatch-test") (next-error-region # . #) (next-error-locus) (interactive-buffer . #) (current-dir . "c:/Users/cody/Desktop/th-filewatch-test/") (target . "") (cabal-checksum . "7af21a885cd73e3d88c828b92cd2cce8") (cabal-dir . "c:/Users/cody/Desktop/th-filewatch-test/") #2) #0 "load \"c:/Users/cody/Desktop/th-filewatch-test/src/Main.hs\"" nil #>) #[257 "\300
A@\301\302AA@\"\"\207" [haskell-process-send-string format ":%s"] 6 "\n\n(fn STATE)"] #[514 "\300A@\301#\207" [haskell-process-live-build nil] 6 "\n\n(fn STATE BUFFER)"] #[514 "\300@A@AAA@AAAA@%\207" [haskell-process-load-complete] 8 "\n\n(fn STATE RESPONSE)"]]) (suggested-imported) (sent-stdin) (evaluating) #1))) "[1 of 2] Compiling Curry ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Curry.hs, interpreted )\n[2 of 2] Compiling Main ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs, interpreted )\nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ju x_a8Jv -> f_a8Ju (x_a8Jv)\nOk, modules loaded: Main, Curry.\nCollecting type info for 2 module(s) ... \nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ki x_a8Kj -> f_a8Ki (x_a8Kj)\n")
haskell-process-load-complete(((name . "th-filewatch-test") (next-error-region # . #) (next-error-locus) (interactive-buffer . #) (current-dir . "c:/Users/cody/Desktop/th-filewatch-test/") (target . "") (cabal-checksum . "7af21a885cd73e3d88c828b92cd2cce8") (cabal-dir . "c:/Users/cody/Desktop/th-filewatch-test/") (process (name . "th-filewatch-test") (current-response-cursor . 362) (current-response . "[1 of 2] Compiling Curry ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Curry.hs, interpreted )\n[2 of 2] Compiling Main ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs, interpreted )\nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ju x_a8Jv -> f_a8Ju (x_a8Jv)\nOk, modules loaded: Main, Curry.\nCollecting type info for 2 module(s) ... \nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ki x_a8Kj -> f_a8Ki (x_a8Kj)\n") (command-queue) (inferior-process . #) (is-restarting) (current-command . [cl-struct-haskell-command (#0 ((name . "th-filewatch-test") (current-response-cursor . 362) (current-response . "[1 of 2] Compiling Curry ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Curry.hs, interpreted )\n[2 of 2] Compiling Main ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs, interpreted )\nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ju x_a8Jv -> f_a8Ju (x_a8Jv)\nOk, modules loaded: Main, Curry.\nCollecting type info for 2 module(s) ... \nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ki x_a8Kj -> f_a8Ki (x_a8Kj)\n") (command-queue) (inferior-process . #) (is-restarting) #2 (suggested-imported) (sent-stdin) (evaluating) (session (name . "th-filewatch-test") (next-error-region # . #) (next-error-locus) (interactive-buffer . #) (current-dir . "c:/Users/cody/Desktop/th-filewatch-test/") (target . "") (cabal-checksum . "7af21a885cd73e3d88c828b92cd2cce8") (cabal-dir . "c:/Users/cody/Desktop/th-filewatch-test/") #1)) "load \"c:/Users/cody/Desktop/th-filewatch-test/src/Main.hs\"" nil #>) #[257 "\300
A@\301\302AA@\"\"\207" [haskell-process-send-string format ":%s"] 6 "\n\n(fn STATE)"] #[514 "\300A@\301#\207" [haskell-process-live-build nil] 6 "\n\n(fn STATE BUFFER)"] #[514 "\300@A@AAA@AAAA@%\207" [haskell-process-load-complete] 8 "\n\n(fn STATE RESPONSE)"]]) (suggested-imported) (sent-stdin) (evaluating) (session (name . "th-filewatch-test") (next-error-region # . #) (next-error-locus) (interactive-buffer . #) (current-dir . "c:/Users/cody/Desktop/th-filewatch-test/") (target . "") (cabal-checksum . "7af21a885cd73e3d88c828b92cd2cce8") (cabal-dir . "c:/Users/cody/Desktop/th-filewatch-test/") #1))) ((name . "th-filewatch-test") (current-response-cursor . 362) (current-response . "[1 of 2] Compiling Curry ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Curry.hs, interpreted )\n[2 of 2] Compiling Main ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs, interpreted )\nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ju x_a8Jv -> f_a8Ju (x_a8Jv)\nOk, modules loaded: Main, Curry.\nCollecting type info for 2 module(s) ... \nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ki x_a8Kj -> f_a8Ki (x_a8Kj)\n") (command-queue) (inferior-process . #) (is-restarting) (current-command . [cl-struct-haskell-command (((name . "th-filewatch-test") (next-error-region # . #) (next-error-locus) (interactive-buffer . #) (current-dir . "c:/Users/cody/Desktop/th-filewatch-test/") (target . "") (cabal-checksum . "7af21a885cd73e3d88c828b92cd2cce8") (cabal-dir . "c:/Users/cody/Desktop/th-filewatch-test/") (process (name . "th-filewatch-test") (current-response-cursor . 362) (current-response . "[1 of 2] Compiling Curry ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Curry.hs, interpreted )\n[2 of 2] Compiling Main ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs, interpreted )\nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ju x_a8Jv -> f_a8Ju (x_a8Jv)\nOk, modules loaded: Main, Curry.\nCollecting type info for 2 module(s) ... \nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ki x_a8Kj -> f_a8Ki (x_a8Kj)\n") (command-queue) (inferior-process . #) (is-restarting) #1 (suggested-imported) (sent-stdin) (evaluating) (session (name . "th-filewatch-test") (next-error-region # . #) (next-error-locus) (interactive-buffer . #) (current-dir . "c:/Users/cody/Desktop/th-filewatch-test/") (target . "") (cabal-checksum . "7af21a885cd73e3d88c828b92cd2cce8") (cabal-dir . "c:/Users/cody/Desktop/th-filewatch-test/") #5))) #0 "load \"c:/Users/cody/Desktop/th-filewatch-test/src/Main.hs\"" nil #>) #[257 "\300
A@\301\302AA@\"\"\207" [haskell-process-send-string format ":%s"] 6 "\n\n(fn STATE)"] #[514 "\300A@\301#\207" [haskell-process-live-build nil] 6 "\n\n(fn STATE BUFFER)"] #[514 "\300@A@AAA@AAAA@%\207" [haskell-process-load-complete] 8 "\n\n(fn STATE RESPONSE)"]]) (suggested-imported) (sent-stdin) (evaluating) (session (name . "th-filewatch-test") (next-error-region # . #) (next-error-locus) (interactive-buffer . #) (current-dir . "c:/Users/cody/Desktop/th-filewatch-test/") (target . "") (cabal-checksum . "7af21a885cd73e3d88c828b92cd2cce8") (cabal-dir . "c:/Users/cody/Desktop/th-filewatch-test/") (process (name . "th-filewatch-test") (current-response-cursor . 362) (current-response . "[1 of 2] Compiling Curry ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Curry.hs, interpreted )\n[2 of 2] Compiling Main ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs, interpreted )\nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ju x_a8Jv -> f_a8Ju (x_a8Jv)\nOk, modules loaded: Main, Curry.\nCollecting type info for 2 module(s) ... \nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ki x_a8Kj -> f_a8Ki (x_a8Kj)\n") (command-queue) (inferior-process . #) (is-restarting) (current-command . [cl-struct-haskell-command (((name . "th-filewatch-test") (next-error-region # . #) (next-error-locus) (interactive-buffer . #) (current-dir . "c:/Users/cody/Desktop/th-filewatch-test/") (target . "") (cabal-checksum . "7af21a885cd73e3d88c828b92cd2cce8") (cabal-dir . "c:/Users/cody/Desktop/th-filewatch-test/") #2) #0 "load \"c:/Users/cody/Desktop/th-filewatch-test/src/Main.hs\"" nil #>) #[257 "\300
A@\301\302AA@\"\"\207" [haskell-process-send-string format ":%s"] 6 "\n\n(fn STATE)"] #[514 "\300A@\301#\207" [haskell-process-live-build nil] 6 "\n\n(fn STATE BUFFER)"] #[514 "\300@A@AAA@AAAA@%\207" [haskell-process-load-complete] 8 "\n\n(fn STATE RESPONSE)"]]) (suggested-imported) (sent-stdin) (evaluating) #1))) "[1 of 2] Compiling Curry ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Curry.hs, interpreted )\n[2 of 2] Compiling Main ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs, interpreted )\nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ju x_a8Jv -> f_a8Ju (x_a8Jv)\nOk, modules loaded: Main, Curry.\nCollecting type info for 2 module(s) ... \nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ki x_a8Kj -> f_a8Ki (x_a8Kj)\n" nil #>)
#[514 "\300@A@AAA@AAAA@%\207" [haskell-process-load-complete] 8 "\n\n(fn STATE RESPONSE)"]((((name . "th-filewatch-test") (next-error-region # . #) (next-error-locus) (interactive-buffer . #) (current-dir . "c:/Users/cody/Desktop/th-filewatch-test/") (target . "") (cabal-checksum . "7af21a885cd73e3d88c828b92cd2cce8") (cabal-dir . "c:/Users/cody/Desktop/th-filewatch-test/") (process (name . "th-filewatch-test") (current-response-cursor . 362) (current-response . "[1 of 2] Compiling Curry ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Curry.hs, interpreted )\n[2 of 2] Compiling Main ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs, interpreted )\nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ju x_a8Jv -> f_a8Ju (x_a8Jv)\nOk, modules loaded: Main, Curry.\nCollecting type info for 2 module(s) ... \nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ki x_a8Kj -> f_a8Ki (x_a8Kj)\n") (command-queue) (inferior-process . #) (is-restarting) (current-command . [cl-struct-haskell-command #0 #[257 "\300
A@\301\302AA@\"\"\207" [haskell-process-send-string format ":%s"] 6 "\n\n(fn STATE)"] #[514 "\300A@\301#\207" [haskell-process-live-build nil] 6 "\n\n(fn STATE BUFFER)"] #[514 "\300@A@AAA@AAAA@%\207" [haskell-process-load-complete] 8 "\n\n(fn STATE RESPONSE)"]]) (suggested-imported) (sent-stdin) (evaluating) (session (name . "th-filewatch-test") (next-error-region # . #) (next-error-locus) (interactive-buffer . #) (current-dir . "c:/Users/cody/Desktop/th-filewatch-test/") (target . "") (cabal-checksum . "7af21a885cd73e3d88c828b92cd2cce8") (cabal-dir . "c:/Users/cody/Desktop/th-filewatch-test/") #2))) ((name . "th-filewatch-test") (current-response-cursor . 362) (current-response . "[1 of 2] Compiling Curry ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Curry.hs, interpreted )\n[2 of 2] Compiling Main ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs, interpreted )\nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ju x_a8Jv -> f_a8Ju (x_a8Jv)\nOk, modules loaded: Main, Curry.\nCollecting type info for 2 module(s) ... \nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ki x_a8Kj -> f_a8Ki (x_a8Kj)\n") (command-queue) (inferior-process . #) (is-restarting) (current-command . [cl-struct-haskell-command #0 #[257 "\300
A@\301\302AA@\"\"\207" [haskell-process-send-string format ":%s"] 6 "\n\n(fn STATE)"] #[514 "\300A@\301#\207" [haskell-process-live-build nil] 6 "\n\n(fn STATE BUFFER)"] #[514 "\300@A@AAA@AAAA@%\207" [haskell-process-load-complete] 8 "\n\n(fn STATE RESPONSE)"]]) (suggested-imported) (sent-stdin) (evaluating) (session (name . "th-filewatch-test") (next-error-region # . #) (next-error-locus) (interactive-buffer . #) (current-dir . "c:/Users/cody/Desktop/th-filewatch-test/") (target . "") (cabal-checksum . "7af21a885cd73e3d88c828b92cd2cce8") (cabal-dir . "c:/Users/cody/Desktop/th-filewatch-test/") (process (name . "th-filewatch-test") (current-response-cursor . 362) (current-response . "[1 of 2] Compiling Curry ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Curry.hs, interpreted )\n[2 of 2] Compiling Main ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs, interpreted )\nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ju x_a8Jv -> f_a8Ju (x_a8Jv)\nOk, modules loaded: Main, Curry.\nCollecting type info for 2 module(s) ... \nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ki x_a8Kj -> f_a8Ki (x_a8Kj)\n") (command-queue) (inferior-process . #) (is-restarting) (current-command . [cl-struct-haskell-command #0 #[257 "\300
A@\301\302AA@\"\"\207" [haskell-process-send-string format ":%s"] 6 "\n\n(fn STATE)"] #[514 "\300A@\301#\207" [haskell-process-live-build nil] 6 "\n\n(fn STATE BUFFER)"] #[514 "\300@A@AAA@AAAA@%\207" [haskell-process-load-complete] 8 "\n\n(fn STATE RESPONSE)"]]) (suggested-imported) (sent-stdin) (evaluating) #2))) "load \"c:/Users/cody/Desktop/th-filewatch-test/src/Main.hs\"" nil #>) "[1 of 2] Compiling Curry ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Curry.hs, interpreted )\n[2 of 2] Compiling Main ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs, interpreted )\nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ju x_a8Jv -> f_a8Ju (x_a8Jv)\nOk, modules loaded: Main, Curry.\nCollecting type info for 2 module(s) ... \nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ki x_a8Kj -> f_a8Ki (x_a8Kj)\n")
haskell-command-exec-complete([cl-struct-haskell-command (((name . "th-filewatch-test") (next-error-region # . #) (next-error-locus) (interactive-buffer . #) (current-dir . "c:/Users/cody/Desktop/th-filewatch-test/") (target . "") (cabal-checksum . "7af21a885cd73e3d88c828b92cd2cce8") (cabal-dir . "c:/Users/cody/Desktop/th-filewatch-test/") (process (name . "th-filewatch-test") (current-response-cursor . 362) (current-response . "[1 of 2] Compiling Curry ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Curry.hs, interpreted )\n[2 of 2] Compiling Main ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs, interpreted )\nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ju x_a8Jv -> f_a8Ju (x_a8Jv)\nOk, modules loaded: Main, Curry.\nCollecting type info for 2 module(s) ... \nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ki x_a8Kj -> f_a8Ki (x_a8Kj)\n") (command-queue) (inferior-process . #) (is-restarting) (current-command . #0) (suggested-imported) (sent-stdin) (evaluating) (session (name . "th-filewatch-test") (next-error-region # . #) (next-error-locus) (interactive-buffer . #) (current-dir . "c:/Users/cody/Desktop/th-filewatch-test/") (target . "") (cabal-checksum . "7af21a885cd73e3d88c828b92cd2cce8") (cabal-dir . "c:/Users/cody/Desktop/th-filewatch-test/") #3))) ((name . "th-filewatch-test") (current-response-cursor . 362) (current-response . "[1 of 2] Compiling Curry ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Curry.hs, interpreted )\n[2 of 2] Compiling Main ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs, interpreted )\nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ju x_a8Jv -> f_a8Ju (x_a8Jv)\nOk, modules loaded: Main, Curry.\nCollecting type info for 2 module(s) ... \nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ki x_a8Kj -> f_a8Ki (x_a8Kj)\n") (command-queue) (inferior-process . #) (is-restarting) (current-command . #0) (suggested-imported) (sent-stdin) (evaluating) (session (name . "th-filewatch-test") (next-error-region # . #) (next-error-locus) (interactive-buffer . #) (current-dir . "c:/Users/cody/Desktop/th-filewatch-test/") (target . "") (cabal-checksum . "7af21a885cd73e3d88c828b92cd2cce8") (cabal-dir . "c:/Users/cody/Desktop/th-filewatch-test/") (process (name . "th-filewatch-test") (current-response-cursor . 362) (current-response . "[1 of 2] Compiling Curry ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Curry.hs, interpreted )\n[2 of 2] Compiling Main ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs, interpreted )\nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ju x_a8Jv -> f_a8Ju (x_a8Jv)\nOk, modules loaded: Main, Curry.\nCollecting type info for 2 module(s) ... \nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ki x_a8Kj -> f_a8Ki (x_a8Kj)\n") (command-queue) (inferior-process . #) (is-restarting) (current-command . #0) (suggested-imported) (sent-stdin) (evaluating) #3))) "load \"c:/Users/cody/Desktop/th-filewatch-test/src/Main.hs\"" nil #>) #[257 "\300
A@\301\302AA@\"\"\207" [haskell-process-send-string format ":%s"] 6 "\n\n(fn STATE)"] #[514 "\300A@\301#\207" [haskell-process-live-build nil] 6 "\n\n(fn STATE BUFFER)"] #[514 "\300@A@AAA@AAAA@%\207" [haskell-process-load-complete] 8 "\n\n(fn STATE RESPONSE)"]] "[1 of 2] Compiling Curry ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Curry.hs, interpreted )\n[2 of 2] Compiling Main ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs, interpreted )\nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ju x_a8Jv -> f_a8Ju (x_a8Jv)\nOk, modules loaded: Main, Curry.\nCollecting type info for 2 module(s) ... \nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ki x_a8Kj -> f_a8Ki (x_a8Kj)\n")
haskell-process-collect(((name . "th-filewatch-test") (next-error-region # . #) (next-error-locus) (interactive-buffer . #) (current-dir . "c:/Users/cody/Desktop/th-filewatch-test/") (target . "") (cabal-checksum . "7af21a885cd73e3d88c828b92cd2cce8") (cabal-dir . "c:/Users/cody/Desktop/th-filewatch-test/") (process (name . "th-filewatch-test") (current-response-cursor . 362) (current-response . "[1 of 2] Compiling Curry ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Curry.hs, interpreted )\n[2 of 2] Compiling Main ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs, interpreted )\nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ju x_a8Jv -> f_a8Ju (x_a8Jv)\nOk, modules loaded: Main, Curry.\nCollecting type info for 2 module(s) ... \nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ki x_a8Kj -> f_a8Ki (x_a8Kj)\n") (command-queue) (inferior-process . #) (is-restarting) (current-command . [cl-struct-haskell-command (#0 ((name . "th-filewatch-test") (current-response-cursor . 362) (current-response . "[1 of 2] Compiling Curry ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Curry.hs, interpreted )\n[2 of 2] Compiling Main ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs, interpreted )\nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ju x_a8Jv -> f_a8Ju (x_a8Jv)\nOk, modules loaded: Main, Curry.\nCollecting type info for 2 module(s) ... \nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ki x_a8Kj -> f_a8Ki (x_a8Kj)\n") (command-queue) (inferior-process . #) (is-restarting) #2 (suggested-imported) (sent-stdin) (evaluating) (session (name . "th-filewatch-test") (next-error-region # . #) (next-error-locus) (interactive-buffer . #) (current-dir . "c:/Users/cody/Desktop/th-filewatch-test/") (target . "") (cabal-checksum . "7af21a885cd73e3d88c828b92cd2cce8") (cabal-dir . "c:/Users/cody/Desktop/th-filewatch-test/") #1)) "load \"c:/Users/cody/Desktop/th-filewatch-test/src/Main.hs\"" nil #>) #[257 "\300
A@\301\302AA@\"\"\207" [haskell-process-send-string format ":%s"] 6 "\n\n(fn STATE)"] #[514 "\300A@\301#\207" [haskell-process-live-build nil] 6 "\n\n(fn STATE BUFFER)"] #[514 "\300@A@AAA@AAAA@%\207" [haskell-process-load-complete] 8 "\n\n(fn STATE RESPONSE)"]]) (suggested-imported) (sent-stdin) (evaluating) (session (name . "th-filewatch-test") (next-error-region # . #) (next-error-locus) (interactive-buffer . #) (current-dir . "c:/Users/cody/Desktop/th-filewatch-test/") (target . "") (cabal-checksum . "7af21a885cd73e3d88c828b92cd2cce8") (cabal-dir . "c:/Users/cody/Desktop/th-filewatch-test/") #1))) "[1 of 2] Compiling Curry ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Curry.hs, interpreted )\n[2 of 2] Compiling Main ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs, interpreted )\nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ju x_a8Jv -> f_a8Ju (x_a8Jv)\nOk, modules loaded: Main, Curry.\nCollecting type info for 2 module(s) ... \nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ki x_a8Kj -> f_a8Ki (x_a8Kj)\n" ((name . "th-filewatch-test") (current-response-cursor . 362) (current-response . "[1 of 2] Compiling Curry ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Curry.hs, interpreted )\n[2 of 2] Compiling Main ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs, interpreted )\nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ju x_a8Jv -> f_a8Ju (x_a8Jv)\nOk, modules loaded: Main, Curry.\nCollecting type info for 2 module(s) ... \nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ki x_a8Kj -> f_a8Ki (x_a8Kj)\n") (command-queue) (inferior-process . #) (is-restarting) (current-command . [cl-struct-haskell-command (((name . "th-filewatch-test") (next-error-region # . #) (next-error-locus) (interactive-buffer . #) (current-dir . "c:/Users/cody/Desktop/th-filewatch-test/") (target . "") (cabal-checksum . "7af21a885cd73e3d88c828b92cd2cce8") (cabal-dir . "c:/Users/cody/Desktop/th-filewatch-test/") (process (name . "th-filewatch-test") (current-response-cursor . 362) (current-response . "[1 of 2] Compiling Curry ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Curry.hs, interpreted )\n[2 of 2] Compiling Main ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs, interpreted )\nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ju x_a8Jv -> f_a8Ju (x_a8Jv)\nOk, modules loaded: Main, Curry.\nCollecting type info for 2 module(s) ... \nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ki x_a8Kj -> f_a8Ki (x_a8Kj)\n") (command-queue) (inferior-process . #) (is-restarting) #1 (suggested-imported) (sent-stdin) (evaluating) (session (name . "th-filewatch-test") (next-error-region # . #) (next-error-locus) (interactive-buffer . #) (current-dir . "c:/Users/cody/Desktop/th-filewatch-test/") (target . "") (cabal-checksum . "7af21a885cd73e3d88c828b92cd2cce8") (cabal-dir . "c:/Users/cody/Desktop/th-filewatch-test/") #5))) #0 "load \"c:/Users/cody/Desktop/th-filewatch-test/src/Main.hs\"" nil #>) #[257 "\300
A@\301\302AA@\"\"\207" [haskell-process-send-string format ":%s"] 6 "\n\n(fn STATE)"] #[514 "\300A@\301#\207" [haskell-process-live-build nil] 6 "\n\n(fn STATE BUFFER)"] #[514 "\300@A@AAA@AAAA@%\207" [haskell-process-load-complete] 8 "\n\n(fn STATE RESPONSE)"]]) (suggested-imported) (sent-stdin) (evaluating) (session (name . "th-filewatch-test") (next-error-region # . #) (next-error-locus) (interactive-buffer . #) (current-dir . "c:/Users/cody/Desktop/th-filewatch-test/") (target . "") (cabal-checksum . "7af21a885cd73e3d88c828b92cd2cce8") (cabal-dir . "c:/Users/cody/Desktop/th-filewatch-test/") (process (name . "th-filewatch-test") (current-response-cursor . 362) (current-response . "[1 of 2] Compiling Curry ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Curry.hs, interpreted )\n[2 of 2] Compiling Main ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs, interpreted )\nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ju x_a8Jv -> f_a8Ju (x_a8Jv)\nOk, modules loaded: Main, Curry.\nCollecting type info for 2 module(s) ... \nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ki x_a8Kj -> f_a8Ki (x_a8Kj)\n") (command-queue) (inferior-process . #) (is-restarting) (current-command . [cl-struct-haskell-command (((name . "th-filewatch-test") (next-error-region # . #) (next-error-locus) (interactive-buffer . #) (current-dir . "c:/Users/cody/Desktop/th-filewatch-test/") (target . "") (cabal-checksum . "7af21a885cd73e3d88c828b92cd2cce8") (cabal-dir . "c:/Users/cody/Desktop/th-filewatch-test/") #2) #0 "load \"c:/Users/cody/Desktop/th-filewatch-test/src/Main.hs\"" nil #>) #[257 "\300
A@\301\302AA@\"\"\207" [haskell-process-send-string format ":%s"] 6 "\n\n(fn STATE)"] #[514 "\300A@\301#\207" [haskell-process-live-build nil] 6 "\n\n(fn STATE BUFFER)"] #[514 "\300@A@AAA@AAAA@%\207" [haskell-process-load-complete] 8 "\n\n(fn STATE RESPONSE)"]]) (suggested-imported) (sent-stdin) (evaluating) #1))))
haskell-process-filter(# "[1 of 2] Compiling Curry ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Curry.hs, interpreted )\n[2 of 2] Compiling Main ( C:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs, interpreted )\nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ju x_a8Jv -> f_a8Ju (x_a8Jv)\nOk, modules loaded: Main, Curry.\nCollecting type info for 2 module(s) ... \nC:\\Users\\cody\\Desktop\\th-filewatch-test\\src\\Main.hs:6:3-14: Splicing declarations\n genCurries 1 ======> curry1 = \\ f_a8Ki x_a8Kj -> f_a8Ki (x_a8Kj)\n")
```

To reproduce you need the below files, then do `:set -ddump-splices` in ghci, and reload Main.hs:

### Main.hs
```haskell
{-# LANGUAGE TemplateHaskell #-}
module Main where

import Curry

$(genCurries 1)

main :: IO ()
main = do
putStrLn "hello world"
```

### Curry.hs
```haskell
module Curry where

import Control.Monad
import Language.Haskell.TH

curryN :: Int -> Q Exp
curryN n = do
f <- newName "f"
xs <- replicateM n (newName "x")
let args = map VarP (f:xs)
ntup = TupE (map VarE xs)
return $ LamE args (AppE (VarE f) ntup)

genCurries :: Int -> Q [Dec]
genCurries n = forM [1..n] mkCurryDec
where mkCurryDec ith = do
cury <- curryN ith
let name = mkName $ "curry" ++ show ith
return $ FunD name [Clause [] (NormalB cury) []]
```

Start with haskell-check-paint-overlay and the surrounding haskell-process-errors-warnings and haskell-process-load-complete calls shown in the stack trace. Reproduce the interactive load of Main.hs with ddump-splices enabled, then trace the splice diagnostic handling; done means the load completes without the wrong-number-of-arguments error.

Written by the indexing model from the issue text.