File tree Expand file tree Collapse file tree 1 file changed +2
-28
lines changed Expand file tree Collapse file tree 1 file changed +2
-28
lines changed Original file line number Diff line number Diff line change @@ -106,34 +106,8 @@ actual Emacs buffer of the module being loaded."
106
106
(with-current-buffer (haskell-interactive-mode-splices-buffer session)
107
107
(erase-buffer )))
108
108
(let* ((ok (cond
109
- ((haskell-process-consume
110
- process
111
- " Ok, \\ (?:[0-9]+\\ ) modules? loaded\\ .$" )
112
- t )
113
- ((haskell-process-consume
114
- process
115
- " Ok, \\ (?:[a-z]+\\ ) modules? loaded\\ .$" ) ; ; for ghc 8.4
116
- t )
117
- ((haskell-process-consume
118
- process
119
- " Failed, \\ (?:[0-9]+\\ ) modules? loaded\\ .$" )
120
- nil )
121
- ((haskell-process-consume
122
- process
123
- " Failed, \\ (?:[a-z]+\\ ) modules? loaded\\ .$" ) ; ; ghc 8.6.3 says so
124
- nil )
125
- ((haskell-process-consume
126
- process
127
- " Ok, modules loaded: \\ (.+\\ )\\ .$" )
128
- t )
129
- ((haskell-process-consume
130
- process
131
- " Failed, modules loaded: \\ (.+\\ )\\ .$" )
132
- nil )
133
- ((haskell-process-consume
134
- process
135
- " Failed, no modules loaded\\ .$" ) ; ; for ghc 8.4
136
- nil )
109
+ ((haskell-process-consume process " Ok, .*$" ) t )
110
+ ((haskell-process-consume process " Failed, .*$" ) nil )
137
111
(t
138
112
(error (message " Unexpected response from haskell process. " )))))
139
113
(modules (haskell-process-extract-modules buffer))
You can’t perform that action at this time.
0 commit comments