git.iko.soy/typeable/cabal2nix
on 3faffc2 help sign in
typeable/cabal2nix/src/Cabal2Nix/Normalize.hs
70 lines 2.6 kB history raw
1{-# LANGUAGE RecordWildCards #-}
3module Cabal2Nix.Normalize ( normalize, normalizeList ) where
5import Distribution.NixOS.Derivation.Cabal
6import Cabal2Nix.Name
7import Cabal2Nix.CorePackages
8import Data.List
9import Data.Char
10import Data.Function
11import Distribution.NixOS.Regex ( regsubmatch )
13normalize :: Derivation -> Derivation
14normalize deriv@(MkDerivation {..}) = deriv
15 { buildDepends = normalizeNixNames (filter (`notElem` (pname : corePackages)) buildDepends)
16 , testDepends = normalizeNixNames (filter (`notElem` (pname : corePackages)) testDepends)
17 , buildTools = normalizeNixBuildTools (filter (`notElem` coreBuildTools) buildTools)
18 , extraLibs = normalizeNixLibs extraLibs
19 , pkgConfDeps = normalizeNixLibs pkgConfDeps
20 , metaSection = normalizeMeta metaSection
21 }
23normalizeMeta :: Meta -> Meta
24normalizeMeta meta@(Meta {..}) = meta
25 { description = normalizeDescription description
26 , maintainers = normalizeMaintainers maintainers
27 , platforms = normalizePlatforms platforms
28 }
30normalizeDescription :: String -> String
31normalizeDescription desc
32 | null desc = []
33 | last desc == '.' && length (filter ('.'==) desc) == 1 = normalizeDescription (init desc)
34 | otherwise = quote (unwords (words desc))
36quote :: String -> String
37quote ('\\':c:cs) = '\\' : c : quote cs
38quote ('"':cs) = '\\' : '"' : quote cs
39quote (c:cs) = c : quote cs
40quote [] = []
42normalizeList :: [String] -> [String]
43normalizeList = nub . sortBy (compare `on` map toLower)
45normalizeNixNames :: [String] -> [String]
46normalizeNixNames = normalizeList . map toNixName
48normalizeNixLibs :: [String] -> [String]
49normalizeNixLibs = normalizeList . concatMap libNixName
51normalizeNixBuildTools :: [String] -> [String]
52normalizeNixBuildTools = normalizeList . concatMap buildToolNixName
54-- |Strip the "self.ghc.meta.platforms" prefix from platform names, filter
55-- duplicates, and sort the resulting list alphabetically.
56--
57-- >>> normalizeMaintainers ["self.stdenv.lib.maintainers.foobar", "foobar"]
58-- ["foobar"]
59--
60-- >>> normalizeMaintainers ["any.prefix.is.recognized.yo", "abc.def"]
61-- ["def","yo"]
63normalizeMaintainers :: [String] -> [String]
64normalizeMaintainers maints = normalizeList
65 [ (m `regsubmatch` "^([^.].*\\.)?([^.]+)$") !! 1 | m <- maints ]
67normalizePlatforms :: [String] -> [String]
68normalizePlatforms [] = ["ghc.meta.platforms"]
69normalizePlatforms plats = normalizeList
70 [ if '.' `elem` p then p else "stdenv.lib.platforms." ++ p | p <- plats ]