From 4b15ea2eccd269dfb148e735426d94aa75a2bea0 Mon Sep 17 00:00:00 2001
From: slotThe <soliditsallgood@mailbox.org>
Date: Sat, 12 Jun 2021 14:07:14 +0200
Subject: [PATCH] X.P.OrgMode: Parse empty message
Empty messages seem quite useless, but it's an easy fix for the parser
to be able to deal with them, so do it.
---
XMonad/Prompt/OrgMode.hs | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/XMonad/Prompt/OrgMode.hs b/XMonad/Prompt/OrgMode.hs
index bcbf1582..534d21d1 100644
--- a/XMonad/Prompt/OrgMode.hs
+++ b/XMonad/Prompt/OrgMode.hs
@@ -339,8 +339,9 @@ pInput inp = fmap fst . listToMaybe . (`readP_to_S` inp) . lchoice $
getLast :: String -> ReadP String
getLast ptn = go ""
where
- go :: String -> ReadP String = \consumed -> do
- next <- munch1 (/= head ptn)
+ go :: String -> ReadP String
+ go consumed = do
+ next <- munch (/= head ptn)
next' <- munch1 (/= ' ')
if next' == ptn
then -- If we're done, it's time to prune extra whitespace