dandri/simplex-chat
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplex-chat.git synced 2026-09-16 12:43:02 +00:00
Code Issues Packages Projects Releases Wiki Activity

cleanup

Browse Source
This commit is contained in:
pdavidow
2023-08-16 09:50:13 -04:00
parent 32a0e6359c
commit 4d99921bde
2 changed files with 22 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Simplex/Chat/MarkdownEditing.hs
+8 -8
View File
@@ -38,9 +38,9 @@ data DiffStatus
data DiffPlainStatus
= PlainUnchanged
| PlainInserted
| PlainDeleted
= UnchangedP
| InsertedP
| DeletedP
deriving (Show, Eq)
@@ -65,8 +65,8 @@ data FormattedChar = FormattedChar
deriving (Show, Eq)
newtype LeftSide a = LeftSide a
newtype RightSide a = RightSide a
newtype LeftSide a = LeftSide a deriving (Show, Eq)
newtype RightSide a = RightSide a deriving (Show, Eq)
newtype DeleteIndicies = DeleteIndicies (Seq Int) deriving (Show, Eq)
@@ -102,9 +102,9 @@ findPlainDiffs (LeftSide left) (RightSide right) = f <$> diffs
f :: DiffedChar -> DiffedPlainChar
f (DiffedChar (FormattedChar c _) diffStatus) = DiffedPlainChar c diffStatusPlain
where diffStatusPlain = case diffStatus of
UnchangedChar _ -> PlainUnchanged
Inserted -> PlainInserted
Deleted -> PlainDeleted
UnchangedChar _ -> UnchangedP
Inserted -> InsertedP
Deleted -> DeletedP
findDiffs :: LeftSide (Seq FormattedChar) -> RightSide (Seq FormattedChar) -> Seq DiffedChar