{-# 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

-- | Map Cabal names to Nix attribute names.
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)

-- | Map library names specified in Cabal files to Nix package identifiers.
--
-- TODO: This list should not be hard-coded here; it belongs into the Nixpkgs
--       repository.
--
-- TODO: Re-use hook matching system from PostProcess.hs here.

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++"                                = []  -- What is that?
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" -- starting with NixOS 22.11, glibc's libcrypt will no longer be built
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"                                 = []  -- provided by glibc
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"                                  = []  -- in stdenv
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"                                 = [] -- in glibc
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" -- This is linux-specific, we should create a common attribute if we ever add sctp support for other systems.
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++"                             = [] -- What is that?
libNixName String
"stdc++.dll"                         = [] -- What is that?
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)

-- | Map build tool names to Nix attribute names.
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)

-- | Helper function to extract the package name from a String that may or may
-- not be formatted like a Cabal package identifier.
--
-- >>> guessNixIdentifier "foo-1.0"
-- Identifier "foo"
-- >>> guessNixIdentifier "foo"
-- Identifier "foo"
-- >>> guessNixIdentifier "foo - 0"
-- Identifier "foo - 0"
-- >>> guessNixIdentifier "1foo-1.0"
-- Identifier "1foo"
-- >>> guessNixIdentifier "-foo-1.0"
-- Identifier "-foo-1.0"

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