@@ -1,16 +1,17 @@
11module Distribution.Nixpkgs.Haskell.FromCabal.Normalize ( normalize, normalizeCabalFlags ) where
22
3+import Control.Lens
34import Data.Function
45import Data.List
56import qualified Data.Set as Set
67import Data.String
78import Distribution.Nixpkgs.Haskell
9+import Distribution.Nixpkgs.Haskell.FromCabal.Configuration ( allPlatforms )
810import Distribution.Nixpkgs.Meta
911import Distribution.Package
1012import Distribution.PackageDescription ( FlagAssignment, FlagName(..) )
1113import Distribution.Simple.Utils ( lowercase )
1214import Language.Nix hiding ( quote )
13−import Control.Lens
1415
1516normalize :: Derivation -> Derivation
1617normalize drv = drv
@@ -36,7 +37,10 @@ normalizeBuildInfo (PackageName pname) bi = bi
3637-}
3738
3839normalizeMeta :: Meta -> Meta
39−normalizeMeta = over description normalizeSynopsis
40+normalizeMeta meta = meta
41+ & description %~ normalizeSynopsis
42+ & platforms %~ Set.intersection allPlatforms
43+ & hydraPlatforms %~ Set.intersection (meta^.platforms)
4044
4145normalizeSynopsis :: String -> String
4246normalizeSynopsis desc