{-# LANGUAGE OverloadedStrings #-}
module Distribution.Nixpkgs.Haskell.FromCabal.Name ( toNixName, libNixName, buildToolNixName ) where
import Data.Maybe
import Data.String
import Distribution.Package
import Distribution.Text
import Language.Nix
toNixName :: PackageName -> Identifier
toNixName :: PackageName -> Identifier
toNixName PackageName
"" = forall a. HasCallStack => String -> a
error String
"toNixName: invalid empty package name"
toNixName PackageName
n = forall a. IsString a => String -> a
fromString (PackageName -> String
unPackageName PackageName
n)
libNixName :: String -> [Identifier]
libNixName :: String -> [Identifier]
libNixName String
"" = []
libNixName String
"adns" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"adns"
libNixName String
"alsa" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"alsa-lib"
libNixName String
"alut" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"freealut"
libNixName String
"appindicator-0.1" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"libappindicator-gtk2"
libNixName String
"appindicator3-0.1" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"libappindicator-gtk3"
libNixName String
"asound" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"alsa-lib"
libNixName String
"b2" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"libb2"
libNixName String
"boost_context" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"boost"
libNixName String
"bz2" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"bzip2"
libNixName String
"c++" = []
libNixName String
"cairo-gobject" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"cairo"
libNixName String
"cairo-pdf" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"cairo"
libNixName String
"cairo-ps" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"cairo"
libNixName String
"cairo-svg" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"cairo"
libNixName String
"crypt" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"libxcrypt"
libNixName String
"crypto" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"openssl"
libNixName String
"curses" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"ncurses"
libNixName String
"dbusmenu-glib-0.4" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"libdbusmenu"
libNixName String
"dbusmenu-gtk3-0.4" = [Identifier
"libdbusmenu-gtk3", Identifier
"gtk3"]
libNixName String
"dl" = []
libNixName String
"ff" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"libff"
libNixName String
"fftw3" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"fftw"
libNixName String
"fftw3f" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"fftwFloat"
libNixName String
"FLAC" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"flac"
libNixName String
"freetype2" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"freetype"
libNixName String
"gconf" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"GConf"
libNixName String
"gconf-2.0" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"GConf"
libNixName String
"gdk-2.0" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"gtk2"
libNixName String
"gdk-3.0" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"gtk3"
libNixName String
"gdk-pixbuf-2.0" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"gdk-pixbuf"
libNixName String
"gdk-x11-2.0" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"gdk_x11"
libNixName String
"geos_c" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"geos"
libNixName String
"gdk-x11-3.0" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"gtk3"
libNixName String
"gio-2.0" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"glib"
libNixName String
"GL" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"libGL"
libNixName String
"GLEW" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"glew"
libNixName String
"GLU" = [Identifier
"libGLU",Identifier
"libGL"]
libNixName String
"glut" = [Identifier
"freeglut",Identifier
"libGLU",Identifier
"libGL"]
libNixName String
"gnome-keyring" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"gnome-keyring"
libNixName String
"gnome-keyring-1" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"libgnome-keyring"
libNixName String
"gnome-vfs-2.0" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"gnome-vfs"
libNixName String
"gnome-vfs-module-2.0" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"gnome-vfs_module"
libNixName String
"gobject-2.0" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"glib"
libNixName String
"gobject-introspection-1.0" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"gobject-introspection"
libNixName String
"gstreamer-audio-0.10" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"gst-plugins-base"
libNixName String
"gstreamer-audio-1.0" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"gst-plugins-base"
libNixName String
"gstreamer-base-0.10" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"gst-plugins-base"
libNixName String
"gstreamer-base-1.0" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"gst-plugins-base"
libNixName String
"gstreamer-controller-0.10" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"gstreamer"
libNixName String
"gstreamer-dataprotocol-0.10" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"gstreamer"
libNixName String
"gstreamer-net-0.10" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"gst-plugins-base"
libNixName String
"gstreamer-plugins-base-0.10" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"gst-plugins-base"
libNixName String
"gstreamer-video-1.0" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"gst-plugins-base"
libNixName String
"gthread-2.0" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"glib"
libNixName String
"gtk+-2.0" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"gtk2"
libNixName String
"gtk+-3.0" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"gtk3"
libNixName String
"gtk-x11-2.0" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"gtk_x11"
libNixName String
"gtksourceview-3.0" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"gtksourceview3"
libNixName String
"hidapi-libusb" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"hidapi"
libNixName String
"icudata" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"icu"
libNixName String
"icui18n" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"icu"
libNixName String
"icuuc" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"icu"
libNixName String
"idn" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"libidn"
libNixName String
"IL" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"libdevil"
libNixName String
"ImageMagick" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"imagemagick"
libNixName String
"Imlib2" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"imlib2"
libNixName String
"iw" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"wirelesstools"
libNixName String
"jack" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"libjack2"
libNixName String
"javascriptcoregtk-4.0" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"webkitgtk"
libNixName String
"jpeg" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"libjpeg"
libNixName String
"jvm" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"jdk"
libNixName String
"lapack" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"liblapack"
libNixName String
"lber" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"openldap"
libNixName String
"ldap" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"openldap"
libNixName String
"libavutil" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"ffmpeg"
libNixName String
"libbrotlienc" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"brotli"
libNixName String
"libbrotlidec" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"brotli"
libNixName String
"libgsasl" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"gsasl"
libNixName String
"libpcre" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"pcre"
libNixName String
"libpcre2" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"pcre2"
libNixName String
"libpcre2-8" = String -> [Identifier]
libNixName String
"libpcre2"
libNixName String
"libqrencode" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"qrencode"
libNixName String
"libR" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"R"
libNixName String
"libsecp256k1" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"secp256k1"
libNixName String
"libsoup-gnome-2.4" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"libsoup"
libNixName String
"libsystemd" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"systemd"
libNixName String
"libudev" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"systemd"
libNixName String
"libxml-2.0" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"libxml2"
libNixName String
"libzip" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"libzip"
libNixName String
"libzmq" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"zeromq"
libNixName String
"liquid" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"liquid-dsp"
libNixName String
"lzma" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"xz"
libNixName String
"m" = []
libNixName String
"magic" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"file"
libNixName String
"MagickWand" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"imagemagick"
libNixName String
"mnl" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"libmnl"
libNixName String
"mpi" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"openmpi"
libNixName String
"mysql" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"mariadb"
libNixName String
"ncursesw" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"ncurses"
libNixName String
"netsnmp" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"net_snmp"
libNixName String
"nix-cmd" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"nix"
libNixName String
"nix-expr" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"nix"
libNixName String
"nix-main" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"nix"
libNixName String
"nix-store" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"nix"
libNixName String
"notify" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"libnotify"
libNixName String
"odbc" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"unixODBC"
libNixName String
"openblas" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"openblasCompat"
libNixName String
"panelw" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"ncurses"
libNixName String
"pangocairo" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"pango"
libNixName String
"pcap" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"libpcap"
libNixName String
"pfs-1.2" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"pfstools"
libNixName String
"png" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"libpng"
libNixName String
"poppler-glib" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"poppler_gi"
libNixName String
"pq" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"postgresql"
libNixName String
"pthread" = []
libNixName String
"pulse" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"libpulseaudio"
libNixName String
"pulse-simple" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"libpulseaudio"
libNixName String
"python-3.3" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"python33"
libNixName String
"python-3.4" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"python34"
libNixName String
"Qt5Core" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"qt5"
libNixName String
"Qt5Gui" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"qt5"
libNixName String
"Qt5Qml" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"qt5"
libNixName String
"Qt5Quick" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"qt5"
libNixName String
"Qt5Widgets" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"qt5"
libNixName String
"quadprog" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"QuadProgpp"
libNixName String
"rt" = []
libNixName String
"rtlsdr" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"rtl-sdr"
libNixName String
"ruby1.8" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"ruby"
libNixName String
"sass" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"libsass"
libNixName String
"sctp" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"lksctp-tools"
libNixName String
"sdl2" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"SDL2"
libNixName String
"sndfile" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"libsndfile"
libNixName String
"SoapySDR" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"soapysdr"
libNixName String
"sodium" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"libsodium"
libNixName String
"sqlite3" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"sqlite"
libNixName String
"ssh2" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"libssh2"
libNixName String
"ssl" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"openssl"
libNixName String
"statgrab" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"libstatgrab"
libNixName String
"stdc++" = []
libNixName String
"stdc++.dll" = []
libNixName String
"systemd-journal" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"systemd"
libNixName String
"tag_c" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"taglib"
libNixName String
"taglib_c" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"taglib"
libNixName String
"tdjson" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"tdlib"
libNixName String
"tensorflow" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"libtensorflow"
libNixName String
"udev" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"systemd";
libNixName String
"uuid" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"libossp_uuid";
libNixName String
"vte-2.91" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"vte_291"
libNixName String
"wayland-client" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"wayland"
libNixName String
"wayland-cursor" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"wayland"
libNixName String
"wayland-egl" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"libGL"
libNixName String
"wayland-server" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"wayland"
libNixName String
"webkit" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"webkitgtk"
libNixName String
"webkit2gtk" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"webkitgtk"
libNixName String
"webkit2gtk-4.0" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"webkitgtk"
libNixName String
"webkit2gtk-web-extension-4.0" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"webkitgtk"
libNixName String
"X11" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"libX11"
libNixName String
"x11" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"xlibsWrapper"
libNixName String
"xau" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"libXau"
libNixName String
"Xcursor" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"libXcursor"
libNixName String
"xerces-c" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"xercesc"
libNixName String
"Xext" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"libXext"
libNixName String
"xft" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"libXft"
libNixName String
"Xi" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"libXi"
libNixName String
"Xinerama" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"libXinerama"
libNixName String
"xkbcommon" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"libxkbcommon"
libNixName String
"xml2" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"libxml2"
libNixName String
"Xpm" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"libXpm"
libNixName String
"Xrandr" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"libXrandr"
libNixName String
"Xrender" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"libXrender"
libNixName String
"xscrnsaver" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"libXScrnSaver"
libNixName String
"Xss" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"libXScrnSaver"
libNixName String
"Xtst" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"libXtst"
libNixName String
"Xxf86vm" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"libXxf86vm"
libNixName String
"yaml" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"libyaml"
libNixName String
"yaml-0.1" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"libyaml"
libNixName String
"z" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"zlib"
libNixName String
"zmq" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"zeromq"
libNixName String
x = forall (m :: * -> *) a. Monad m => a -> m a
return (String -> Identifier
guessNixIdentifier String
x)
buildToolNixName :: String -> [Identifier]
buildToolNixName :: String -> [Identifier]
buildToolNixName String
"" = forall (m :: * -> *) a. Monad m => a -> m a
return (forall a. HasCallStack => String -> a
error String
"buildToolNixName: invalid empty dependency name")
buildToolNixName String
"cabal" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"cabal-install"
buildToolNixName String
"fltk-config" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"fltk"
buildToolNixName String
"ghc" = []
buildToolNixName String
"gtk2hsC2hs" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"gtk2hs-buildtools"
buildToolNixName String
"gtk2hsHookGenerator" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"gtk2hs-buildtools"
buildToolNixName String
"gtk2hsTypeGen" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"gtk2hs-buildtools"
buildToolNixName String
"hsc2hs" = []
buildToolNixName String
"nix-build" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"nix"
buildToolNixName String
"nix-env" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"nix"
buildToolNixName String
"nix-hash" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"nix"
buildToolNixName String
"nix-instantiate" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"nix"
buildToolNixName String
"nix-store" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"nix"
buildToolNixName String
"utillinux" = forall (m :: * -> *) a. Monad m => a -> m a
return Identifier
"util-linux"
buildToolNixName String
x = forall (m :: * -> *) a. Monad m => a -> m a
return (forall a. IsString a => String -> a
fromString String
x)
guessNixIdentifier :: String -> Identifier
guessNixIdentifier :: String -> Identifier
guessNixIdentifier String
x = forall a. IsString a => String -> a
fromString (forall a. a -> Maybe a -> a
fromMaybe String
x Maybe String
maybePackageId)
where
maybePackageId :: Maybe String
maybePackageId = PackageName -> String
unPackageName forall b c a. (b -> c) -> (a -> b) -> a -> c
. PackageIdentifier -> PackageName
pkgName forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> forall a. Parsec a => String -> Maybe a
simpleParse String
x