@@ -4,6 +4,7 @@
44module Main ( main ) where
55
66import Control.Exception ( bracket )
7+import Control.Lens
78import Data.Maybe ( fromMaybe )
89import qualified Data.Set as Set
910import Distribution.Nixpkgs.Fetch
@@ -14,14 +15,12 @@ import Distribution.Nixpkgs.Meta
1415import Distribution.PackageDescription ( FlagName(..), FlagAssignment )
1516import Distribution.Simple.Utils ( lowercase )
1617import Distribution.Text ( display )
17−import Paths_cabal2nix
18−import Text.PrettyPrint.HughesPJClass ( Doc, Pretty(..), text, vcat, hcat, semi )
19−import Control.Lens
20−import Control.Lens.Create
2118import Language.Nix
2219import Options.Applicative
20+import Paths_cabal2nix
2321import System.IO ( hFlush, stdout, stderr )
2422import qualified Text.PrettyPrint.ANSI.Leijen as P2 hiding ( (<$>), (<>) )
23+import Text.PrettyPrint.HughesPJClass ( Doc, Pretty(..), text, vcat, hcat, semi )
2524-- import Text.Show.Pretty
2625import Distribution.Nixpkgs.Haskell.PackageSourceSpec
2726
@@ -97,7 +96,7 @@ main = bracket (return ()) (\() -> hFlush stdout >> hFlush stderr) $ \() -> do
9796
9897 let deriv :: Derivation
9998 deriv = fromGenericPackageDescription (const True)
100− (\i -> Just (create binding (i, create path [i])))
99+ (\i -> Just (binding # (i, path # [i])))
101100 (platform ghc7102)
102101 (compilerInfo ghc7102)
103102 (readFlagList optFlags)
@@ -109,7 +108,7 @@ main = bracket (return ()) (\() -> hFlush stdout >> hFlush stderr) $ \() -> do
109108 & hyperlinkSource .~ optHyperlinkSource
110109 & enableLibraryProfiling .~ (fromMaybe False optEnableProfiling || optEnableLibraryProfiling)
111110 & enableExecutableProfiling .~ (fromMaybe False optEnableProfiling || optEnableExecutableProfiling)
112− & metaSection.maintainers .~ Set.fromList (map (create ident) optMaintainer)
111+ & metaSection.maintainers .~ Set.fromList (map (review ident) optMaintainer)
113112-- & metaSection.platforms .~ Set.fromList optPlatform
114113 & doCheck &&~ optDoCheck
115114 & extraFunctionArgs . contains "stdenv" .~ True