From aeca7656f499d7f4595319858f242276920e31bb Mon Sep 17 00:00:00 2001
From: Louis Gesbert <louis.gesbert@ocamlpro.com>
Date: Sat, 2 Dec 2017 12:51:01 +0100
Subject: [PATCH] Fix for ocaml 4.06

---
 common/criteria_lexer.mll | 8 ++++----
 common/util.ml            | 2 +-
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/common/criteria_lexer.mll b/common/criteria_lexer.mll
index 71f9178..fc4eae3 100644
--- a/common/criteria_lexer.mll
+++ b/common/criteria_lexer.mll
@@ -18,7 +18,7 @@
     let c = Lexing.lexeme_char lexbuf 2 in (* the delimiter can be any character *)
     (* find the terminating delimiter *)
     let endpos =
-      try String.index_from lexbuf.lex_buffer (lexbuf.lex_start_pos + 3) c with
+      try Bytes.index_from lexbuf.lex_buffer (lexbuf.lex_start_pos + 3) c with
       |Invalid_argument _ ->
           raise (Format822.Syntax_error (
             Format822.error lexbuf "String too short"))
@@ -27,9 +27,9 @@
             Format822.error lexbuf (Printf.sprintf "cannot find: %c" c)))
     in
     let len = endpos - (lexbuf.lex_start_pos + 3) in
-    let s = String.sub lexbuf.lex_buffer (lexbuf.lex_start_pos + 3) len in
-    lexbuf.Lexing.lex_curr_pos <- lexbuf.Lexing.lex_start_pos + ((String.length s)+4);
-    s
+    let s = Bytes.sub lexbuf.lex_buffer (lexbuf.lex_start_pos + 3) len in
+    lexbuf.Lexing.lex_curr_pos <- lexbuf.Lexing.lex_start_pos + ((Bytes.length s)+4);
+    Bytes.to_string s
 
 }
 
diff --git a/common/util.ml b/common/util.ml
index 598f266..36ca3d1 100644
--- a/common/util.ml
+++ b/common/util.ml
@@ -87,7 +87,7 @@ module MakeMessages(X : sig val label : string end) = struct
   let clean label =
     try 
       let s = Filename.chop_extension (Filename.basename label) in
-      String.capitalize s
+      String.capitalize_ascii s
     with Invalid_argument _ -> label
 
   let create ?(enabled=false) label =
-- 
2.11.0

ze='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=f1df78959a18aa1aed07e885051514938bd1fa92'>root</a>/<a href='/guix/log/gnu?id=f1df78959a18aa1aed07e885051514938bd1fa92'>gnu</a>/<a href='/guix/log/gnu/services?id=f1df78959a18aa1aed07e885051514938bd1fa92'>services</a>/<a href='/guix/log/gnu/services/linux.scm?id=f1df78959a18aa1aed07e885051514938bd1fa92'>linux.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/services/linux.scm?id=f1df78959a18aa1aed07e885051514938bd1fa92&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2023-08-21 17:29:51 +0200'>2023-08-21</span></td><td><a href='/guix/commit/gnu/services/linux.scm?id=0e6215ac72cf642b0bafc4e1ea3120535bd7245a'>gnu: earlyoom: Improve description.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-08-21 17:29:50 +0200'>2023-08-21</span></td><td><a href='/guix/commit/gnu/services/linux.scm?id=69d8d0a71964cc2f382da91090d61668189579e8'>services: earlyoom: Move 'user-processes' to 'requirements'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-08-21 16:16:47 +0200'>2023-08-21</span></td><td><a href='/guix/commit/gnu/services/linux.scm?id=9c34b793c10cdb50235b876dea5be700ab5600dc'>services: Add missing 'user-processes' requirements.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-08-15 23:30:44 +0200'>2023-08-15</span></td><td><a href='/guix/commit/gnu/services/linux.scm?id=b8ee6b8a59bf02f47a6668e016905308b441523e'>services: Add cachefilesd service.</a><span class='msg-avail'>...</span></td><td>Felix Lechner</td></tr>
<tr><td><span title='2023-05-04 21:32:32 +0300'>2023-05-04</span></td><td><a href='/guix/commit/gnu/services/linux.scm?id=f66344ed81c47df6cf4606469b8f4c5732f4b9db'>services: earlyoom: Rotate log files.</a><span class='msg-avail'>...</span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2023-04-02 12:35:30 +0200'>2023-04-02</span></td><td><a href='/guix/commit/gnu/services/linux.scm?id=0fbb356714f4ae3ea18e4997131a0e1746cc923c'>services: replace bare serializers with (serializer ...)</a><span class='msg-avail'>...</span></td><td>Bruno Victal</td></tr>
<tr><td><span title='2023-03-28 22:22:51 -0400'>2023-03-28</span></td><td><a href='/guix/commit/gnu/services/linux.scm?id=f215d801277a60cc1d862ed59c179cb8a482ced5'>services: fstrim: Fix schedule ungexp.</a><span class='msg-avail'>...</span></td><td>Bruno Victal</td></tr>
<tr><td><span title='2023-03-22 10:09:03 -0400'>2023-03-22</span></td><td><a href='/guix/commit/gnu/services/linux.scm?id=72ef1bef07c00cda9b26af70e1fbb3c28b0824ad'>services: Add fstrim-service-type.</a><span class='msg-avail'>...</span></td><td>Bruno Victal</td></tr>