1 files changed, 2 insertions(+), 2 deletions(-)

M MMS.hs

@@ 18,7 18,7 @@ import qualified Data.MIME            as MIME
 import Email
 import Util
 
-newtype Tel = Tel Text deriving (Show)
+newtype Tel = Tel Text deriving (Show, Eq)
 
 instance Aeson.ToJSON Tel where
 	toJSON (Tel tel) = Aeson.toJSON tel


@@ 41,7 41,7 @@ instance Aeson.ToJSON MMS where
 			s"message" .= Aeson.object ([
 					s"direction" .= "in",
 					s"id" .= mid mms,
-					s"to" .= to mms,
+					s"to" .= nub (to mms),
 					s"from" .= from mms,
 					s"owner" .= owner mms
 				] ++