Skip to content

Commit 7c406ea

Browse files
committed
Merge pull request #1314 from gracjan/pr-unreachable-clause
Remove unreachable clause in indentation
2 parents 5d58314 + aeec6be commit 7c406ea

File tree

1 file changed

+1
-8
lines changed

1 file changed

+1
-8
lines changed

haskell-indentation.el

Lines changed: 1 addition & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -904,14 +904,7 @@ parser. If parsing ends here, set indentation to left-indent."
904904
(when (null parser)
905905
(throw 'return nil)) ; not expression token, so exit
906906
(funcall (cdr parser)) ; run parser
907-
(when (and (eq current-token 'end-tokens)
908-
(string= (car parser) "let")
909-
(= haskell-indentation-layout-offset current-indent)
910-
(haskell-indentation-expression-token-p following-token))
911-
;; inside a layout, after a let construct
912-
;; for example: "do let a = 20"
913-
(haskell-indentation-add-layout-indent)
914-
(throw 'parse-end nil))
907+
915908
;; after an 'open' expression such as 'if', exit
916909
(unless (member (car parser) '("(" "[" "{" "case"))
917910
(throw 'return nil)))))))))

0 commit comments

Comments
 (0)