{-# LANGUAGE RecordWildCards #-}
module BDCS.Label.License(matches,
mkLabel)
where
import Data.Char(toUpper)
import Data.List(isPrefixOf)
import qualified Data.Text as T
import System.FilePath.Posix(takeFileName)
import BDCS.DB(Files(..))
import BDCS.Label.Types(Label(..))
feq :: FilePath -> String -> Bool
feq path s = let
path' = map toUpper path
sDot = s ++ "."
sDash = s ++ "-"
in
path' == s ||
sDot `isPrefixOf` path ||
sDash `isPrefixOf` path
matches :: Files -> Bool
matches Files{..} = let
filesPath' = T.unpack filesPath
fn = takeFileName filesPath'
in
"/usr/share/licenses/" `isPrefixOf` filesPath' ||
feq fn "COPYING" || feq fn "COPYRIGHT" || feq fn "LICENSE"
mkLabel :: Files -> Maybe Label
mkLabel _ = Just LicenseLabel