darcsweb - gen/HtmlPure.hs

{-# OPTIONS_GHC -w #-}
module HtmlPure where
import qualified Data.Bits
import qualified Data.Char

import qualified Prelude

dquote :: Prelude.Char
dquote =
  (\x -> x) '"'

squote :: Prelude.Char
squote =
  (\x -> x) '\''

esc_char :: Prelude.Char -> Prelude.String
esc_char c =
  case ((Prelude.==) :: Prelude.Char -> Prelude.Char -> Prelude.Bool) c '<' of {
   Prelude.True -> "&lt;";
   Prelude.False ->
    case ((Prelude.==) :: Prelude.Char -> Prelude.Char -> Prelude.Bool) c '>' of {
     Prelude.True -> "&gt;";
     Prelude.False ->
      case ((Prelude.==) :: Prelude.Char -> Prelude.Char -> Prelude.Bool) c
             '&' of {
       Prelude.True -> "&amp;";
       Prelude.False ->
        case ((Prelude.==) :: Prelude.Char -> Prelude.Char -> Prelude.Bool) c
               dquote of {
         Prelude.True -> "&quot;";
         Prelude.False ->
          case ((Prelude.==) :: Prelude.Char -> Prelude.Char -> Prelude.Bool)
                 c squote of {
           Prelude.True -> "&#39;";
           Prelude.False -> (:) c ""}}}}}

esc :: Prelude.String -> Prelude.String
esc s =
  case s of {
   ([]) -> "";
   (:) c rest -> (Prelude.++) (esc_char c) (esc rest)}