From 028f15cce127360f29afa41754aab3816718492f Mon Sep 17 00:00:00 2001
From: Simon Van Casteren <simon.van.casteren@gmail.com>
Date: Wed, 8 Jan 2020 12:12:24 +0100
Subject: Fixed smaller review remarks

---
 src/lspspec.sml | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'src/lspspec.sml')

diff --git a/src/lspspec.sml b/src/lspspec.sml
index bbc78606..0d766056 100644
--- a/src/lspspec.sml
+++ b/src/lspspec.sml
@@ -8,9 +8,7 @@ structure LspSpec = struct
       (TextIO.output (TextIO.stdErr, str ^ "\n\n"); TextIO.flushOut TextIO.stdErr)
 
   fun trim (s: substring): substring =
-      Substring.dropr
-        (fn c => c = #" " orelse c = #"\n" orelse c = #"\r")
-        (Substring.dropl (fn c => c = #" " orelse c = #"\n" orelse c = #"\r") s)
+      Substring.dropr Char.isSpace (Substring.dropl Char.isSpace s)
 
   fun readHeader (): (string * string) option =
       let 
-- 
cgit v1.2.3