diff options
author | 2014-02-23 13:34:59 -0400 | |
---|---|---|
committer | 2014-02-23 13:34:59 -0400 | |
commit | 84884101e3c19b0db4c8c5975fc47575dc0782fb (patch) | |
tree | 34744e6eadb3405e8c31f9f67df57270eb2781ba /Types/MetaData.hs | |
parent | 82b230213dc35f17ed26dbc5074cb8bc14444ba1 (diff) |
metadata: Field names limited to alphanumerics and a few whitelisted punctuation characters to avoid issues with views, etc.
Diffstat (limited to 'Types/MetaData.hs')
-rw-r--r-- | Types/MetaData.hs | 24 |
1 files changed, 17 insertions, 7 deletions
diff --git a/Types/MetaData.hs b/Types/MetaData.hs index b941cb59b..7c4028a2d 100644 --- a/Types/MetaData.hs +++ b/Types/MetaData.hs @@ -115,19 +115,29 @@ instance MetaSerializable CurrentlySet where deserialize "-" = Just (CurrentlySet False) deserialize _ = Nothing -{- Fields cannot be empty, contain whitespace, or start with "+-" as - - that would break the serialization. -} toMetaField :: String -> Maybe MetaField toMetaField f | legalField f = Just $ MetaField f | otherwise = Nothing +{- Fields cannot be empty, contain whitespace, or start with "+-" as + - that would break the serialization. + - + - Additionally, fields should not contain any form of path separator, as + - that would break views. + - + - So, require they have an alphanumeric first letter, with the remainder + - being either alphanumeric or a small set of shitelisted common punctuation. + -} legalField :: String -> Bool -legalField f - | null f = False - | any isSpace f = False - | any (`isPrefixOf` f) ["+", "-"] = False - | otherwise = True +legalField [] = False +legalField (c1:cs) + | not (isAlphaNum c1) = False + | otherwise = all legalchars cs + where + legalchars c + | isAlphaNum c = True + | otherwise = c `elem` "_-." toMetaValue :: String -> MetaValue toMetaValue = MetaValue (CurrentlySet True) |