diff options
| -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" |