Commit 241917c1 authored by Camil Staps's avatar Camil Staps 🐧

. does not match newline

parent 0e44ab8c
......@@ -128,5 +128,5 @@ where
shorthandClass :: [Char] -> Maybe ([(Char,Char)], [Char])
shorthandClass ['\\':c:cs] = (\cc -> (cc,cs)) <$> lookup c shorthand_classes
shorthandClass ['.':cs] = Just ([('\0','\255')], cs)
shorthandClass ['.':cs] = Just ([('\0','\9'),('\11','\255')], cs)
shorthandClass _ = Nothing
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment