From 09335855f6d44d65747602781642fc931a88e222 Mon Sep 17 00:00:00 2001
From: tv <tv@krebsco.de>
Date: Sun, 9 Jan 2022 15:22:47 +0100
Subject: Blessings: fix filter in IsPm Underline

---
 src/Blessings.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/Blessings.hs b/src/Blessings.hs
index 26a0666..450daa3 100644
--- a/src/Blessings.hs
+++ b/src/Blessings.hs
@@ -151,8 +151,8 @@ instance IsPm Underline where
         rec xs = case filter (`elem` ([4,24] :: [Word8])) xs of
             [] -> Nothing
             xs' -> case last xs' of
-                1 -> Just Underline
-                22 -> Just NoUnderline
+                4 -> Just Underline
+                24 -> Just NoUnderline
                 _ -> error "filter broken in fromPm :: Pm -> Maybe Underline"
 
 
-- 
cgit v1.2.3