xmpipe 0.0.0.3 → 0.0.0.4

raw patch · 2 files changed

+3/−3 lines, 2 files

Files

core/XmppType.hs +2/−2
xmpipe.cabal +1/−1

core/XmppType.hs view

@@ -171,8 +171,8 @@ data Jid = Jid BS.ByteString BS.ByteString (Maybe BS.ByteString) deriving (Eq, Show)  fromJid :: Jid -> BS.ByteString-fromJid (Jid a d r) = a `BS.append` "@" `BS.append` d `BS.append`-	maybe "" ("/" `BS.append`) r+fromJid (Jid a d r) = (if BS.null a then "" else a `BS.append` "@")+	`BS.append` d `BS.append` maybe "" ("/" `BS.append`) r  toJid :: BS.ByteString -> Jid toJid j = case rst of

xmpipe.cabal view

@@ -2,7 +2,7 @@ cabal-version:	>= 1.8  name:		xmpipe-version:	0.0.0.3+version:	0.0.0.4 stability:	Experimental author:		Yoshikuni Jujo <PAF01143@nifty.ne.jp> maintainer:	Yoshikuni Jujo <PAF01143@nifty.ne.jp>