Commit d93fbe10 authored by Oleg Grenrus's avatar Oleg Grenrus
Browse files

Fix x- field parsing

parent 211d9a56
......@@ -552,11 +552,9 @@ setupBInfoFieldDescrs =
-- Utilities
-------------------------------------------------------------------------------
-- | Predicate to test field names beginning with "x-"
beginsWithX :: FieldName -> Bool
beginsWithX bs = case BS.uncons bs of
Just (x, _)
| x == fromIntegral (ord 'x') -> True
_ -> False
beginsWithX bs = BS.take 2 bs == "x-"
-- | Mark the field as deprecated.
deprecatedField
......
......@@ -5,4 +5,4 @@ cabal-version: >= 1.6
library
build-depends: base >= 4.9 && <4.10
hs-source-dirs: .
z-field: z
xfield: x
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