module Debian.Orphans where
import Data.Function (on)
import Data.Generics (Data, Typeable)
import Data.List (isPrefixOf)
import Data.Maybe (fromMaybe)
import Data.Monoid ((<>))
import Data.Text (Text, unpack)
import Data.Version (Version(..), showVersion)
import Debian.Changes (ChangeLog(..), ChangeLogEntry(..))
import Debian.Control (Field'(..))
import Debian.Relation (Relation(..), VersionReq(..), ArchitectureReq(..),
BinPkgName(..), SrcPkgName(..))
import Debian.Version (DebianVersion)
import Distribution.Compiler (CompilerId(..), CompilerFlavor(..))
import Distribution.License (License(..))
import Distribution.PackageDescription (PackageDescription(package), Executable(..))
import Distribution.Simple.Compiler (Compiler(..))
import Distribution.Version (VersionRange(..), foldVersionRange')
import Language.Haskell.Extension (Extension(..), KnownExtension(..), Language(..))
import Text.PrettyPrint.ANSI.Leijen (Pretty(pretty), text)
import Text.ParserCombinators.Parsec.Rfc2822 (NameAddr(..))
deriving instance Typeable Compiler
deriving instance Typeable CompilerId
deriving instance Typeable CompilerFlavor
deriving instance Typeable Language
deriving instance Typeable Extension
deriving instance Typeable KnownExtension
deriving instance Data Extension
deriving instance Data KnownExtension
deriving instance Data Language
deriving instance Data Compiler
deriving instance Data CompilerId
deriving instance Data CompilerFlavor
deriving instance Ord Language
deriving instance Ord KnownExtension
deriving instance Ord Extension
deriving instance Eq Compiler
deriving instance Ord Compiler
deriving instance Ord NameAddr
deriving instance Ord License
instance Ord Executable where
compare = compare `on` exeName
instance Ord PackageDescription where
compare = compare `on` package
instance Pretty Text where
pretty = text . unpack
deriving instance Read ArchitectureReq
deriving instance Read BinPkgName
deriving instance Read ChangeLog
deriving instance Read ChangeLogEntry
deriving instance Read Relation
deriving instance Read SrcPkgName
deriving instance Read VersionReq
deriving instance Show ChangeLog
deriving instance Show ChangeLogEntry
dropPrefix :: String -> String -> Maybe String
dropPrefix p s = if isPrefixOf p s then Just (drop (length p) s) else Nothing
deriving instance Data ArchitectureReq
deriving instance Data BinPkgName
deriving instance Data ChangeLog
deriving instance Data ChangeLogEntry
deriving instance Data Relation
deriving instance Data SrcPkgName
deriving instance Data VersionReq
deriving instance Typeable ArchitectureReq
deriving instance Typeable BinPkgName
deriving instance Typeable ChangeLog
deriving instance Typeable ChangeLogEntry
deriving instance Typeable Relation
deriving instance Typeable SrcPkgName
deriving instance Typeable VersionReq
deriving instance Ord ChangeLog
deriving instance Ord ChangeLogEntry
deriving instance Typeable License
deriving instance Data Version
deriving instance Data License
instance Pretty License where
pretty (GPL _) = text "GPL"
pretty (LGPL _) = text "LGPL"
pretty (Apache _) = text "Apache"
pretty BSD3 = text "BSD"
pretty BSD4 = text "BSD-like"
pretty PublicDomain = text "Public Domain"
pretty AllRightsReserved = text "Proprietary"
pretty OtherLicense = text "Non-distributable"
pretty MIT = text "MIT"
pretty (UnknownLicense _) = text "Unknown"
deriving instance Data NameAddr
deriving instance Typeable NameAddr
deriving instance Read NameAddr
instance Pretty NameAddr where
pretty x = text (fromMaybe (nameAddr_addr x) (nameAddr_name x) ++ " <" ++ nameAddr_addr x ++ ">")
deriving instance Show (Field' String)
instance Pretty VersionRange where
pretty range =
foldVersionRange'
(text "*")
(\ v -> text "=" <> pretty v)
(\ v -> text ">" <> pretty v)
(\ v -> text "<" <> pretty v)
(\ v -> text ">=" <> pretty v)
(\ v -> text "<=" <> pretty v)
(\ x _ -> text "=" <> pretty x <> text ".*")
(\ x y -> text "(" <> x <> text " || " <> y <> text ")")
(\ x y -> text "(" <> x <> text " && " <> y <> text ")")
(\ x -> text "(" <> x <> text ")")
range
instance Pretty Version where
pretty = text . showVersion
instance Pretty DebianVersion where
pretty = text . show