40ecf58d4b
This does not change the overall license of the git-annex program, which was already AGPL due to a number of sources files being AGPL already. Legally speaking, I'm adding a new license under which these files are now available; I already released their current contents under the GPL license. Now they're dual licensed GPL and AGPL. However, I intend for all my future changes to these files to only be released under the AGPL license, and I won't be tracking the dual licensing status, so I'm simply changing the license statement to say it's AGPL. (In some cases, others wrote parts of the code of a file and released it under the GPL; but in all cases I have contributed a significant portion of the code in each file and it's that code that is getting the AGPL license; the GPL license of other contributors allows combining with AGPL code.)
63 lines
1.4 KiB
Haskell
63 lines
1.4 KiB
Haskell
{- git-annex metadata, standard fields
|
|
-
|
|
- Copyright 2014 Joey Hess <id@joeyh.name>
|
|
-
|
|
- Licensed under the GNU AGPL version 3 or higher.
|
|
-}
|
|
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
module Annex.MetaData.StandardFields (
|
|
tagMetaField,
|
|
yearMetaField,
|
|
monthMetaField,
|
|
dayMetaField,
|
|
isDateMetaField,
|
|
lastChangedField,
|
|
mkLastChangedField,
|
|
isLastChangedField
|
|
) where
|
|
|
|
import Types.MetaData
|
|
|
|
import qualified Data.Text as T
|
|
import Data.Monoid
|
|
import Prelude
|
|
|
|
tagMetaField :: MetaField
|
|
tagMetaField = mkMetaFieldUnchecked "tag"
|
|
|
|
yearMetaField :: MetaField
|
|
yearMetaField = mkMetaFieldUnchecked "year"
|
|
|
|
monthMetaField :: MetaField
|
|
monthMetaField = mkMetaFieldUnchecked "month"
|
|
|
|
dayMetaField :: MetaField
|
|
dayMetaField = mkMetaFieldUnchecked "day"
|
|
|
|
isDateMetaField :: MetaField -> Bool
|
|
isDateMetaField f
|
|
| f == yearMetaField = True
|
|
| f == monthMetaField = True
|
|
| f == dayMetaField = True
|
|
| otherwise = False
|
|
|
|
lastChangedField :: MetaField
|
|
lastChangedField = mkMetaFieldUnchecked lastchanged
|
|
|
|
mkLastChangedField :: MetaField -> MetaField
|
|
mkLastChangedField f = mkMetaFieldUnchecked (fromMetaField f <> lastchangedSuffix)
|
|
|
|
isLastChangedField :: MetaField -> Bool
|
|
isLastChangedField f
|
|
| f == lastChangedField = True
|
|
| otherwise = lastchanged `T.isSuffixOf` s && s /= lastchangedSuffix
|
|
where
|
|
s = fromMetaField f
|
|
|
|
lastchanged :: T.Text
|
|
lastchanged = "lastchanged"
|
|
|
|
lastchangedSuffix :: T.Text
|
|
lastchangedSuffix = "-lastchanged"
|