diff options
Diffstat (limited to 'src/morpho-server/URLEncoding.hs')
| -rw-r--r-- | src/morpho-server/URLEncoding.hs | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/src/morpho-server/URLEncoding.hs b/src/morpho-server/URLEncoding.hs deleted file mode 100644 index ad5fb0dd9..000000000 --- a/src/morpho-server/URLEncoding.hs +++ /dev/null @@ -1,18 +0,0 @@ -module URLEncoding where - -import Data.Bits (shiftL, (.|.)) -import Data.Char (chr,digitToInt,isHexDigit) - - -urlDecodeUnicode :: String -> String -urlDecodeUnicode [] = "" -urlDecodeUnicode ('%':'u':x1:x2:x3:x4:s) - | all isHexDigit [x1,x2,x3,x4] = - chr ( digitToInt x1 `shiftL` 12 - .|. digitToInt x2 `shiftL` 8 - .|. digitToInt x3 `shiftL` 4 - .|. digitToInt x4) : urlDecodeUnicode s -urlDecodeUnicode ('%':x1:x2:s) | isHexDigit x1 && isHexDigit x2 = - chr ( digitToInt x1 `shiftL` 4 - .|. digitToInt x2) : urlDecodeUnicode s -urlDecodeUnicode (c:s) = c : urlDecodeUnicode s |