Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

[project @ 2004-12-14 23:14:28 by ross]

repair for non-GHC
  • Loading branch information...
commit 17e958c4ae14daef4446a3101edffd87064c615c 1 parent 187b0aa
ross authored
Showing with 20 additions and 0 deletions.
  1. +20 −0 Network/URI.hs
View
20 Network/URI.hs
@@ -125,8 +125,12 @@ import Data.Maybe( isJust )
import Control.Monad( MonadPlus(..) )
+#ifdef __GLASGOW_HASKELL__
import Data.Typeable ( Typeable )
import Data.Generics ( Data )
+#else
+import Data.Typeable ( Typeable(..), TyCon, mkTyCon, mkTyConApp )
+#endif
------------------------------------------------------------
-- The URI datatype
@@ -153,6 +157,14 @@ data URI = URI
#endif
)
+#ifndef __GLASGOW_HASKELL__
+uriTc :: TyCon
+uriTc = mkTyCon "URI"
+
+instance Typeable URI where
+ typeOf _ = mkTyConApp uriTc []
+#endif
+
-- |Type for authority value within a URI
data URIAuth = URIAuth
{ uriUserInfo :: String -- ^ @anonymous\@@
@@ -164,6 +176,14 @@ data URIAuth = URIAuth
#endif
)
+#ifndef __GLASGOW_HASKELL__
+uriAuthTc :: TyCon
+uriAuthTc = mkTyCon "URIAuth"
+
+instance Typeable URIAuth where
+ typeOf _ = mkTyConApp uriAuthTc []
+#endif
+
-- |Blank URI
nullURI :: URI
nullURI = URI
Please sign in to comment.
Something went wrong with that request. Please try again.