GeezerVisonThe World Wide Web, restored to 800 pixels of glory. |
| Home|About|Gaming cabinet|Archives|How it works|Starter sites |
GeezerVison is showing github.com — purescript-python/src/StringEscape.hs at master · purescript-python/purescript-python Expand file tree/ Copy pathStringEscape.hsMore file actions 16 lines (13 loc) · 424 Bytes / Copy pathStringEscape.hsFile metadata and controls16 lines (13 loc) · 424 Bytes 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 module StringEscape(escape) where import qualified Data.Char as C escapeImpl :: String -> String -> String escapeImpl [] r = r escapeImpl (c:cs) r = case c of '"' -> "\\\"" ++ tl '\\' -> "\\\\" ++ tl _ | C.isPrint c && not (C.isControl c) -> c:tl | otherwise -> C.showLitChar c tl where tl = escapeImpl cs r escape :: String -> String escape s = '\"' : escapeImpl s "\"" |
| You are visitor 01402503 — GeezerVison does not store the pages you look up. Best viewed with Netscape Navigator 4.7 or Internet Explorer 6 at 800×600. No cookies required. |