diff options
| author | krasimir <krasimir@chalmers.se> | 2009-06-04 16:26:52 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2009-06-04 16:26:52 +0000 |
| commit | f2a968b6d53ac07df67f393bd06c38f368d08c02 (patch) | |
| tree | 6cf785bcb1807de93f10452b11b0dd306157ec70 /src/morpho-server/URLEncoding.hs | |
| parent | 6a263f05aa8d963f7141aca8b7ee0cae0c063515 (diff) | |
the morpho server is now updated and works with the current GF. the sources are moved in directory server
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 |