https-everywhere-else
/
https-everywhere-rules
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Safe implementation of adornSuffix.

master
vi 2014-08-23 19:01:14 +08:00
parent 427a2516b3
commit 42bc20ae07
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/Data/Text/ICU/Extras.hs
View File

@ -53,12 +53,16 @@ parseReplacement :: Text -> Maybe Replacement
parseReplacement = hush . parseOnly (many' parseSegment)
runReplacement :: [Match] -> Replacement -> Maybe Text
runReplacement matches replacement = mconcat <$$> invert . adornSuffix (last matches) $ do
runReplacement matches replacement = mconcat <$$> invert . adornSuffix (safeLast matches) $ do
match <- matches
Just (span match) : map (dereference $ flip group match) replacement
adornSuffix :: Match -> ([Maybe Text] -> [Maybe Text])
adornSuffix match = (++ [ap (flip suffix) groupCount match])
safeLast :: [a] -> Maybe a
safeLast = \case { [] -> Nothing; xs -> Just $ last xs }
adornSuffix :: Maybe Match -> ([Maybe Text] -> [Maybe Text])
adornSuffix Nothing = id
adornSuffix (Just match) = (++ [ap (flip suffix) groupCount match])
dereference :: (Int -> Maybe Text) -> Segment -> Maybe Text
dereference group = \case