Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP

Comparing changes

Choose two branches to see what's changed or to start a new pull request. If you need to, you can also compare across forks.

Open a pull request

Create a new pull request by comparing changes across two branches. If you need to, you can also compare across forks.
base fork: napthats/phivty
base: 121eaa0ec3
...
head fork: napthats/phivty
compare: ffbfcfae51
  • 2 commits
  • 3 files changed
  • 0 commit comments
  • 1 contributor
Showing with 5 additions and 1 deletion.
  1. +2 −0  PhiVty/Protocol.hs
  2. +2 −0  PhiVty/UI.hs
  3. +1 −1  main.hs
View
2  PhiVty/Protocol.hs
@@ -17,6 +17,7 @@ data ServerProtocol =
| PhiList [String]
| SEdit
| Close
+ | Lag
| Unfinished ServerProtocol
| Unknown String
@@ -67,6 +68,7 @@ parse u_mes ('#':protocol) =
_ -> Unknown ""
"s-edit" -> SEdit
"close" -> Close
+ "lag" -> Lag
_ -> Unknown protocol
parse (Just (PhiList list)) mes = Unfinished $ PhiList $ list ++ [phiDecode mes]
parse _ mes =
View
2  PhiVty/UI.hs
@@ -93,6 +93,7 @@ _mapHandler UINormal soc key mod_list c change_ct =
KASCII 'l' -> do {send "cast" soc; send "wizard lock" soc}
KASCII 'u' -> do {send "cast" soc; send "unlock" soc}
KASCII 's' -> do {send "cast" soc; send "search" soc}
+ KASCII 'd' -> do {send "cast" soc; send "detect" soc}
KASCII 'm' -> cdo c $ do
ct <- getCollectionType
case ct of
@@ -194,6 +195,7 @@ makeWindowWithChara menu_item c chara_id host_name port_num collection = do
SEdit -> cdo c $ do
setUIState UISEdit
Close -> close soc
+ Lag -> send "#end-lag" soc
Unfinished u -> modifyMVar_ m_u_mes $ const $ return $ Just u
Unknown "" -> return ()
Unknown un_mes -> do
View
2  main.hs
@@ -11,7 +11,7 @@ main = do
if length args /= 3 then error "main ip port id" else do
let new_dbdata = initialDB 0
c <- newCdo
- uidata <- initialPhiUI c [("guest4", (args !! 0), (read (args !!1) :: Int)), ((args !! 2), (args !! 0), (read (args !! 1) :: Int))]
+ uidata <- initialPhiUI c [("guest", (args !! 0), (read (args !!1) :: Int)), ((args !! 2), (args !! 0), (read (args !! 1) :: Int))]
_ <- forkIO $ do
let loop dbdata = do
m <- getMonad c

No commit comments for this range

Something went wrong with that request. Please try again.