132 lines
2.6 KiB
Haskell
132 lines
2.6 KiB
Haskell
{-# LANGUAGE DeriveDataTypeable #-}
|
|
{-# LANGUAGE NamedFieldPuns #-}
|
|
|
|
----------------------------------------------------------------------
|
|
-- |
|
|
-- Module: Main
|
|
-- Description:
|
|
--
|
|
--
|
|
--
|
|
----------------------------------------------------------------------
|
|
|
|
module Main
|
|
( main
|
|
)
|
|
where
|
|
|
|
-- licensor
|
|
import Licensor
|
|
|
|
-- base
|
|
import Control.Monad
|
|
import Data.List
|
|
import Data.Monoid ((<>))
|
|
import qualified Data.Version as Version
|
|
import System.Environment
|
|
import qualified System.Exit as Exit
|
|
|
|
-- Cabal
|
|
import Distribution.PackageDescription
|
|
import Distribution.Text
|
|
|
|
-- cmdargs
|
|
import System.Console.CmdArgs
|
|
|
|
-- containers
|
|
import qualified Data.Map.Strict as Map
|
|
import qualified Data.Set as Set
|
|
|
|
-- directory
|
|
import System.Directory (doesFileExist)
|
|
|
|
|
|
-- |
|
|
--
|
|
--
|
|
|
|
data LiArgs =
|
|
LiArgs
|
|
{
|
|
}
|
|
deriving (Data)
|
|
|
|
|
|
-- |
|
|
--
|
|
--
|
|
|
|
liArgs :: String -> Mode (CmdArgs LiArgs)
|
|
liArgs s =
|
|
cmdArgsMode $
|
|
LiArgs
|
|
{
|
|
}
|
|
&= program s
|
|
&= summary (unwords ["licensor", Version.showVersion version])
|
|
&= verbosity
|
|
|
|
|
|
-- |
|
|
--
|
|
--
|
|
|
|
main :: IO ()
|
|
main = do
|
|
LiArgs <- cmdArgsRun . liArgs =<< getProgName
|
|
|
|
quiet <- fmap not isNormal
|
|
|
|
maybePackage <- getPackage
|
|
|
|
pid <-
|
|
case maybePackage of
|
|
Nothing -> do
|
|
stack <- doesFileExist "stack.yaml"
|
|
if stack
|
|
then do
|
|
putStrLn "Found stack.yaml..."
|
|
pure Nothing
|
|
else
|
|
Exit.die "Error: No Cabal file found."
|
|
|
|
Just PackageDescription { license, package } -> do
|
|
putStrLn $
|
|
"Package: "
|
|
<> display package
|
|
<> " ("
|
|
<> "License: "
|
|
<> display license
|
|
<> ")"
|
|
pure (Just package)
|
|
|
|
maybeDependencies <- getDependencies
|
|
maybeLicenses <- getLicenses
|
|
|
|
case (maybeDependencies, maybeLicenses) of
|
|
(Just dependencies, Just licenses) -> do
|
|
(dependenciesByLicense', failed) <-
|
|
orderPackagesByLicense quiet pid licenses dependencies
|
|
|
|
let dependenciesByLicense = fmap (Set.map display) dependenciesByLicense'
|
|
|
|
forM_ (Map.keys dependenciesByLicense) $
|
|
\license ->
|
|
let
|
|
n = dependenciesByLicense Map.! license
|
|
in do
|
|
putStrLn "-----"
|
|
putStrLn $
|
|
show (Set.size n)
|
|
<> (if Set.size n == 1 then " package " else " packages ")
|
|
<> "licensed under "
|
|
<> display license
|
|
<> ": "
|
|
<> intercalate ", " (Set.toList n)
|
|
|
|
unless (null failed) $ do
|
|
putStr "Failed: "
|
|
print failed
|
|
_ ->
|
|
Exit.die "Error: ..."
|