Commits

Anonymous committed 878a354

empty string check: eq -> len

  • Participants
  • Parent commits 5b5a175

Comments (0)

Files changed (1)

File src/amall_http.ml

       (  fun line ->
            let (hname, sep, hval_sp) =
              String.split_by_first ( (=) ':' ) line in
-           if sep = "" then fail "header without ':'"
+           if String.length sep = 0 then fail "header without ':'"
            else
              let hval = String.trim is_whitespace hval_sp in
              I.return (hname, hval)