From 3023141907fc35f27bf4aa09e659770722aa8344 Mon Sep 17 00:00:00 2001
From: Evgeny Poberezkin <evgeny@poberezkin.com>
Date: Thu, 14 Nov 2024 14:24:21 +0000
Subject: [PATCH] do not strip title from conditions

---
 src/Simplex/Chat/Operators.hs            | 4 ++--
 src/Simplex/Chat/Operators/Conditions.hs | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/Simplex/Chat/Operators.hs b/src/Simplex/Chat/Operators.hs
index d5c5e15070..55de357090 100644
--- a/src/Simplex/Chat/Operators.hs
+++ b/src/Simplex/Chat/Operators.hs
@@ -52,10 +52,10 @@ import Simplex.Messaging.Transport.Client (TransportHost (..))
 import Simplex.Messaging.Util (atomicModifyIORef'_, safeDecodeUtf8)
 
 usageConditionsCommit :: Text
-usageConditionsCommit = "165143a1112308c035ac00ed669b96b60599aa1c"
+usageConditionsCommit = "a5061f3147165a05979d6ace33960aced2d6ac03"
 
 previousConditionsCommit :: Text
-previousConditionsCommit = "edf99fcd1d7d38d2501d19608b94c084cf00f2ac"
+previousConditionsCommit = "11a44dc1fd461a93079f897048b46998db55da5c"
 
 usageConditionsText :: Text
 usageConditionsText =
diff --git a/src/Simplex/Chat/Operators/Conditions.hs b/src/Simplex/Chat/Operators/Conditions.hs
index 55cf8b658d..a314c1901a 100644
--- a/src/Simplex/Chat/Operators/Conditions.hs
+++ b/src/Simplex/Chat/Operators/Conditions.hs
@@ -9,7 +9,7 @@ import qualified Data.Text as T
 stripFrontMatter :: Text -> Text
 stripFrontMatter =
   T.unlines
-    . dropWhile ("# " `T.isPrefixOf`) -- strip title
+    -- . dropWhile ("# " `T.isPrefixOf`) -- strip title
     . dropWhile (T.all isSpace)
     . dropWhile fm
     . (\ls -> let ls' = dropWhile (not . fm) ls in if null ls' then ls else ls')