@@ -1,7 +1,9 @@
1module Distribution.Nixpkgs.Haskell.FromCabal.License ( fromCabalLicense ) where
1module Distribution.Nixpkgs.Haskell.FromCabal.License ( fromCabalLicense ) where
3import Distribution.Nixpkgs.License
3import Distribution.Nixpkgs.License
4−import Distribution.License ( License(..) )
4+import Distribution.License ( License(..), knownLicenses )
5+import Distribution.Text (display)
6+import Data.List (intercalate)
5import Data.Version
7import Data.Version
7-- TODO: Programatically strip trailing zeros from license version numbers.
9-- TODO: Programatically strip trailing zeros from license version numbers.
@@ -31,4 +33,5 @@ fromCabalLicense (Apache Nothing) = Known "stdenv.lib.lice
31fromCabalLicense (Apache (Just (Version [2,0] []))) = Known "stdenv.lib.licenses.asl20"
33fromCabalLicense (Apache (Just (Version [2,0] []))) = Known "stdenv.lib.licenses.asl20"
32fromCabalLicense ISC = Known "stdenv.lib.licenses.isc"
34fromCabalLicense ISC = Known "stdenv.lib.licenses.isc"
33fromCabalLicense OtherLicense = Unknown Nothing
35fromCabalLicense OtherLicense = Unknown Nothing
34−fromCabalLicense l = error $ "Distribution.Nixpkgs.Haskell.FromCabal.License.fromCabalLicense: unknown license " ++ show l
36+fromCabalLicense l = error $ "Distribution.Nixpkgs.Haskell.FromCabal.License.fromCabalLicense: unknown license"
37+ ++ show l ++"\nChoose one of: " ++ intercalate ", " (map display knownLicenses)