Use string-prefix-p instead of haskell-is-prefix-of.

gracjan · gracjan · commit 9f1560ba5203 · 2015-02-18T11:41:38.000+01:00
diff --git a/haskell-session.el b/haskell-session.el
@@ -64,8 +64,8 @@
     (cl-reduce (lambda (acc a)
                  (let ((dir (haskell-session-cabal-dir a t)))
                    (if dir
-                       (if (haskell-is-prefix-of dir
-                                                 (file-name-directory (buffer-file-name)))
+                       (if (string-prefix-p dir
+					    (file-name-directory (buffer-file-name)))
                            (if acc
                                (if (and
                                     (> (length (haskell-session-cabal-dir a t))
diff --git a/haskell-string.el b/haskell-string.el
@@ -13,11 +13,6 @@
              0
              (min (length string) n)))
 
-;;;###autoload
-(defun haskell-is-prefix-of (x y)
-  "Is x string a prefix of y string?"
-  (string= x (substring y 0 (min (length y) (length x)))))
-
 (defun haskell-string ())
 
 (provide 'haskell-string)

Original file line number	Diff line number	Diff line change
`@@ -13,11 +13,6 @@`
`13`	`13`	`0`
`14`	`14`	`(min (length string) n)))`
`15`	`15`
`16`		`-;;;###autoload`
`17`		`-(defun haskell-is-prefix-of (x y)`
`18`		`- "Is x string a prefix of y string?"`
`19`		`- (string= x (substring y 0 (min (length y) (length x)))))`
`20`		`-`
`21`	`16`	`(defun haskell-string ())`
`22`	`17`
`23`	`18`	`(provide 'haskell-string)`