~ubuntu-branches/debian/sid/mediawiki2latex/sid

« back to all changes in this revision

Viewing changes to src/All.hs

  • Committer: Package Import Robot
  • Author(s): Georges Khaznadar
  • Date: 2015-06-29 22:52:40 UTC
  • mfrom: (1.1.19)
  • Revision ID: package-import@ubuntu.com-20150629225240-oijvr7z10xer8ujw
Tags: 7.21-1
* upgraded to the last upstream version
* Changed one word in the description
* updated lintian overrides

Show diffs side-by-side

added added

removed removed

Lines of Context:
451
451
       let uurl
452
452
             = replace2
453
453
                 (if (take 8 (inputUrl cfg)) == "https://" then
454
 
                    "http://" ++ (drop 8 (inputUrl cfg)) else
 
454
                    "https://" ++ (drop 8 (inputUrl cfg)) else
455
455
                    if (take 7 (inputUrl cfg)) == "http://" then (inputUrl cfg) else
456
 
                      "http://" ++ (inputUrl cfg))
 
456
                      "https://" ++ (inputUrl cfg))
457
457
                 "_"
458
458
                 " "
459
459
       purl <- parseUrl uurl