pageNoDisponible :: String -> String -> String
pageNoDisponible error link
    = "<html>\
            \<head> <style> span {text-decoration: underline}</style></head>\
            \<body>\
               \<h1> This webpage is not available.</h1>\
               \<p> Error returned: " ++ error ++ " </p>\
               \<p> The webpage at <span>"  ++ link  ++ "</span> might be temporarily down or it may have moved permanently to a new web address. </p>\
            \</body>\
      \</html>"
pageNoDisponible :: String -> String -> String
pageNoDisponible error link
    = "<html>\
            \<head> <style> span {text-decoration: underline}</style></head>\
            \<body>\
               \<h1> This webpage is not available.</h1>\
               \<p> Error returned: " ++ error ++ " </p>\
               \<p> The webpage at <span>"  ++ link  ++ "</span> might be temporarily down or it may have moved permanently to a new web address. </p>\
            \</body>\
      \</html>"
pageNoDisponible error link
    = "<html>\
            \<head> <style> span {text-decoration: underline}</style></head>\
            \<body>\
               \<h1> This webpage is not available.</h1>\
               \<p> Error returned: " ++ error ++ " </p>\
               \<p> The webpage at <span>"  ++ link  ++ "</span> might be temporarily down or it may have moved permanently to a new web address. </p>\
            \</body>\
      \</html>"