diff options
| author | tv <tv@krebsco.de> | 2022-01-09 15:22:47 +0100 |
|---|---|---|
| committer | tv <tv@krebsco.de> | 2022-01-09 15:23:41 +0100 |
| commit | 09335855f6d44d65747602781642fc931a88e222 (patch) | |
| tree | 2201c35c7da3324cdd1c94cebcdffed0b42c2b0b /src/Blessings.hs | |
| parent | d94712a015636efe7ec79bc0a2eec6739d0be779 (diff) | |
Blessings: fix filter in IsPm Underline
Diffstat (limited to 'src/Blessings.hs')
| -rw-r--r-- | src/Blessings.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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" |