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