Un-globalize purescript-string-take

It's a small utility function used in one place, and is unlikely used
by anyone else. There's no need to keep it autoloaded and in a
separate file.

Author: Hi-Angel

purescript-mode.el

@@ -432,6 +432,12 @@ Brings up the documentation for purescript-mode-hook."
     (goto-char (+ (line-beginning-position)
                   col))))
 
+(defun purescript-string-take (string n)
+  "Take n chars from string."
+  (substring string
+             0
+             (min (length string) n)))
+
 (defun purescript-mode-message-line (str)
   "Message only one line, multiple lines just disturbs the programmer."
   (let ((lines (split-string str "\n" t)))

purescript-string.el

@@ -1,11 +1,4 @@
 ;;; purescript-string.el --- string manipulation utilties -*- lexical-binding: t -*-
-;;;###autoload
-(defun purescript-string-take (string n)
-  "Take n chars from string."
-  (substring string
-             0
-             (min (length string) n)))
-
 ;;;###autoload
 (defun purescript-is-prefix-of (x y)
   "Is x string a prefix of y string?"