cleaned up maps_support.ml

This commit is contained in:
Stephen Dwyer
2011-07-28 21:22:19 -06:00
parent 159ee17e05
commit bd752d0fba
2 changed files with 4 additions and 8 deletions
+3
View File
@@ -0,0 +1,3 @@
<!DOCTYPE maps SYSTEM "maps.dtd">
<maps google_version="89"/>
+1 -8
View File
@@ -29,14 +29,7 @@ let home = Env.paparazzi_home
let (//) = Filename.concat
let maps_xml_path = home // "conf" // "maps.xml"
let maps_xml = (
(*try*) ExtXml.parse_file maps_xml_path
(*with
Xml.File_not_found f -> (Printf.sprintf "File does not exist: %s" f)
| ExtXml.Error s -> (Printf.sprintf "Error in XML file: %s" s)*)
)
let maps_xml = ExtXml.parse_file maps_xml_path
let google_version = (
if !google_ver == 0 then (