From 99b426b3f36c40d026099719eab42b79bcf215a1 Mon Sep 17 00:00:00 2001
From: Stephen Paul Weber <singpolyma@singpolyma.net>
Date: Sun, 5 Feb 2023 21:10:02 -0500
Subject: [PATCH] Make the + optional

Google Fi at least doesn't send it in headers
---
 MMS.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/MMS.hs b/MMS.hs
index 6eab884..70ba72a 100644
--- a/MMS.hs
+++ b/MMS.hs
@@ -55,7 +55,7 @@ instance Aeson.ToJSON MMS where
 
 telParser :: Atto.Parser Tel
 telParser = do
-	_ <- Atto.char '+'
+	_ <- Atto.option '+' (Atto.char '+')
 	tel <- Atto.takeWhile isDigit
 	return $ Tel (s"+" ++ tel)
 
-- 
2.45.2