Fix refactoring mistake

mgsloan · mgsloan · commit e51ca5c6df32 · 2015-12-02T18:44:28.000-08:00
Should have been part of 7d09efd
diff --git a/src/Haskell/Ide/Engine/Dispatcher.hs b/src/Haskell/Ide/Engine/Dispatcher.hs
@@ -107,7 +107,7 @@ validateContexts cd req = r
         , ideMessage = T.pack ("no valid context found, expecting one of:" ++ show (cmdContexts cd))
         , ideInfo = Nothing
         }
-      (ctxs, []) ->
+      (ctxs, _) ->
         case checkParams (cmdAdditionalParams cd) (ideParams req) of
           Left e -> Left e
           Right _ -> Right ctxs

Original file line number	Diff line number	Diff line change
`@@ -107,7 +107,7 @@ validateContexts cd req = r`
`107`	`107`	`, ideMessage = T.pack ("no valid context found, expecting one of:" ++ show (cmdContexts cd))`
`108`	`108`	`, ideInfo = Nothing`
`109`	`109`	`}`
`110`		`- (ctxs, []) ->`
	`110`	`+ (ctxs, _) ->`
`111`	`111`	`case checkParams (cmdAdditionalParams cd) (ideParams req) of`
`112`	`112`	`Left e -> Left e`
`113`	`113`	`Right _ -> Right ctxs`