]> matita.cs.unibo.it Git - helm.git/commitdiff
Unable to parse my own output. Fixed.
authorClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Fri, 24 Mar 2006 18:02:18 +0000 (18:02 +0000)
committerClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Fri, 24 Mar 2006 18:02:18 +0000 (18:02 +0000)
components/binaries/utilities/test_library.ml

index 7768b6f455c40c20b823d66195791ab6c9ec6811..8abf5e9beaa28afa15d59c6624afd8a1b520d749 100644 (file)
@@ -64,6 +64,7 @@ let _ =
         let uri,res,time =
          match Str.split (Str.regexp " ") uri with
             uri::res::time::_ -> uri, Some res, Some (float_of_string time)
+          | [uri;res] -> uri, Some res, None
           | [ uri ] -> uri, None, None
           | _ -> assert false
         in