Permalink
Fetching contributors…
Cannot retrieve contributors at this time
25 lines (20 sloc) 564 Bytes
;;;###autoload
(defun haskell-trim (string)
(replace-regexp-in-string
"^[ \t\n]+" ""
(replace-regexp-in-string
"[ \t\n]+$" ""
string)))
;;;###autoload
(defun haskell-string-take (string n)
"Take n chars from string."
(substring string
0
(min (length string) n)))
;;;###autoload
(defun haskell-is-prefix-of (x y)
"Is x string a prefix of y string?"
(string= (substring x 0 (min (length x) (length y)))
(substring y 0 (min (length x) (length y)))))
(defun haskell-string ())
(provide 'haskell-string)