mirror of
https://github.com/simplex-chat/simplex-chat.git
synced 2026-04-01 05:16:00 +00:00
16 lines
360 B
Haskell
16 lines
360 B
Haskell
{-# LANGUAGE LambdaCase #-}
|
|
|
|
module Types where
|
|
|
|
import Data.ByteString.Char8 (ByteString)
|
|
|
|
newtype Contact = Contact {toBs :: ByteString}
|
|
|
|
data TermMode = TermModeBasic | TermModeSimple | TermModeEditor deriving (Eq)
|
|
|
|
termModeName :: TermMode -> String
|
|
termModeName = \case
|
|
TermModeBasic -> "basic"
|
|
TermModeSimple -> "simple"
|
|
TermModeEditor -> "editor"
|