mirror of
https://github.com/simplex-chat/simplex-chat.git
synced 2026-03-31 14:06:05 +00:00
3778c308f7
* remove current user name * rename /accept to /connect, remove /chat, add /reset, allow 1-letter abbreviations * update help * /delete contact, separate response for confirmation * update invatation instruction * unset active contact only if it is the same as current
15 lines
328 B
Haskell
15 lines
328 B
Haskell
{-# LANGUAGE LambdaCase #-}
|
|
|
|
module Types where
|
|
|
|
import Data.ByteString.Char8 (ByteString)
|
|
|
|
newtype Contact = Contact {toBs :: ByteString} deriving (Eq)
|
|
|
|
data TermMode = TermModeBasic | TermModeEditor deriving (Eq)
|
|
|
|
termModeName :: TermMode -> String
|
|
termModeName = \case
|
|
TermModeBasic -> "basic"
|
|
TermModeEditor -> "editor"
|