File tree Expand file tree Collapse file tree 3 files changed +4
-11
lines changed Expand file tree Collapse file tree 3 files changed +4
-11
lines changed Original file line number Diff line number Diff line change 9191(require 'purescript-vars )
9292(require 'purescript-string )
9393(require 'cl-lib )
94+ (require 'subr )
9495
9596(defgroup purescript-indent nil
9697 " PureScript indentation."
@@ -655,8 +656,8 @@ symbols in the sexp."
655656 (string-match " where[ \t ]*" purescript-indent-current-line-first-ident))
656657 (diff-first ; not a function def with the same name
657658 (or (null valname-string)
658- (not (string= (purescript -trim valname-string)
659- (purescript -trim purescript-indent-current-line-first-ident)))))
659+ (not (string= (string -trim valname-string)
660+ (string -trim purescript-indent-current-line-first-ident)))))
660661
661662 ; ; (is-type-def
662663 ; ; (and rpurs-sign (eq (char-after rpurs-sign) ?\:)))
Original file line number Diff line number Diff line change @@ -439,7 +439,7 @@ Brings up the documentation for purescript-mode-hook."
439439 (message " %s "
440440 (concat (car lines)
441441 (if (and (cdr lines) (stringp (cadr lines)))
442- (format " [ %s .. ] " (purescript-string-take (purescript -trim (cadr lines)) 10 ))
442+ (format " [ %s .. ] " (purescript-string-take (string -trim (cadr lines)) 10 ))
443443 " " ))))))
444444
445445(defun purescript-current-line-string ()
Original file line number Diff line number Diff line change 11; ;; purescript-string.el --- string manipulation utilties -*- lexical-binding : t -*-
2- ;;;### autoload
3- (defun purescript-trim (string )
4- (replace-regexp-in-string
5- " ^[ \t\n ]+" " "
6- (replace-regexp-in-string
7- " [ \t\n ]+$" " "
8- string)))
9-
102;;;### autoload
113(defun purescript-string-take (string n )
124 " Take n chars from string."
You can’t perform that action at this time.
0 commit comments