From f2a968b6d53ac07df67f393bd06c38f368d08c02 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Thu, 4 Jun 2009 16:26:52 +0000
Subject: the morpho server is now updated and works with the current GF. the
 sources are moved in directory server

---
 src/morpho-server/URLEncoding.hs | 18 ------------------
 1 file changed, 18 deletions(-)
 delete mode 100644 src/morpho-server/URLEncoding.hs

(limited to 'src/morpho-server/URLEncoding.hs')

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
-- 
cgit v1.2.3