Read/Show minor changes to make way for Easy

baguasquirrel · Nov 4, 2009 · 6d4c33e · 6d4c33e
1 parent aad90d4
commit 6d4c33e
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/openid.cabal b/openid.cabal
@@ -1,5 +1,5 @@
 name:               openid
-version:            0.1.3.0
+version:            0.1.4.0
 cabal-version:      >= 1.6
 synopsis:           An implementation of the OpenID-2.0 spec.
 description:        An implementation of the OpenID-2.0 spec.

diff --git a/src/Network/OpenID/Association/Map.hs b/src/Network/OpenID/Association/Map.hs
@@ -27,7 +27,7 @@ import qualified Data.Map as Map
 
 -- | A simple association manager based on Data.Map
 newtype AssociationMap = AM (Map.Map String (UTCTime,Association))
-  deriving Show
+    deriving (Show,Read)
 
 instance AssociationManager AssociationMap where
   findAssociation (AM m) p = snd `fmap` Map.lookup (showProvider p) m

diff --git a/src/Network/OpenID/Types.hs b/src/Network/OpenID/Types.hs
@@ -74,7 +74,7 @@ data Association = Association
   , assocHandle    :: String
   , assocMacKey    :: [Word8]
   , assocType      :: AssocType
-  } deriving Show
+  } deriving (Show,Read)
 
 
 -- | Parameter lists for communication with the server