twitter-0.1: Commands.hs

module Commands where

data Command = Down | Up | Refresh | Reply | First | Last | Unknown 
             | Insert | Command

charToCmd 'i' = Insert
charToCmd 'j' = Down
charToCmd 'k' = Up
charToCmd 'r' = Reply
charToCmd 'R' = Refresh
charToCmd 'g' = First
charToCmd 'G' = Last
charToCmd ':' = Command
charToCmd  _  = Unknown