diff --git a/Hub/Commands.hs b/Hub/Commands.hs
--- a/Hub/Commands.hs
+++ b/Hub/Commands.hs
@@ -4,7 +4,7 @@
-- This module provides the routines the Main dispatcher calls fater analysing
-- the CommandLine AST.
--
--- (c) 2011-2012 Chris Dornan
+-- (c) 2011-2015 Chris Dornan
module Hub.Commands
@@ -248,7 +248,7 @@
_install hub pkns =
do notLocked hub
execP HubO (EE InheritRS InheritRS [] []) FullMDE hub CabalP
- ("install":map prettyPkgNick pkns)
+ ("install":inst_aHUB hub++map prettyPkgNick pkns)
_erase :: Hub -> [PkgNick] -> Bool -> IO ()
_erase hub pkns0 ff =
diff --git a/Hub/Directory/Allocate.hs b/Hub/Directory/Allocate.hs
deleted file mode 100644
--- a/Hub/Directory/Allocate.hs
+++ /dev/null
@@ -1,37 +0,0 @@
---
--- >>> Hub.Directory.Allocate <<<
---
--- This module logically belongs to HUb.Directory and would be placed there
--- except doing so would establish an import sysle between Hub.Hub and
--- Hub.Directory through Hub.Parse.
---
--- (c) 2011-2012 Chris Dornan
-
-
-module Hub.Directory.Allocate
- ( allocate
- ) where
-
-import qualified Control.Exception as E
-import Text.Printf
-import System.Directory
-import System.Environment
-import Hub.System
-
-
--- allocate a library directory from the heap in the (default) directory
-
-allocate :: IO FilePath
-allocate =
- do hme <- home
- createDirectoryIfMissing True $ printf "%s/.hubrc/heap" hme
- i <- inc $ printf "%s/.hubrc/heap/counter.txt" hme
- let pth = printf "%s/.hubrc/heap/%d" hme i
- createDirectoryIfMissing True pth
- return pth
-
-home :: IO FilePath
-home = catchIO (getEnv "HOME") $ \_ -> return "/"
-
-catchIO :: IO a -> (IOError->IO a) -> IO a
-catchIO = E.catch
diff --git a/Hub/Hub.hs b/Hub/Hub.hs
--- a/Hub/Hub.hs
+++ b/Hub/Hub.hs
@@ -6,7 +6,7 @@
-- the 'exec' utilities for setting up the PATH, GHC_PACKAGE_PATH and munging
-- cabal's command-line arguments, etc.
--
--- (c) 2011-2012 Chris Dornan
+-- (c) 2011-2015 Chris Dornan
module Hub.Hub
@@ -51,6 +51,7 @@
, tl_binHUB :: FilePath
, ci_vrnHUB :: Maybe String
, glb_dbHUB :: FilePath
+ , inst_aHUB :: [String]
, usr___HUB :: Maybe UsrHub
} deriving (Show)
diff --git a/Hub/Parse.hs b/Hub/Parse.hs
--- a/Hub/Parse.hs
+++ b/Hub/Parse.hs
@@ -4,7 +4,7 @@
-- This module parses the hub XML file to produce a Hub, and the inverse,
-- dumping a Hub into XML.
--
--- (c) 2011-2012 Chris Dornan
+-- (c) 2011-2015 Chris Dornan
module Hub.Parse
@@ -54,6 +54,8 @@
] ++
[ printf " %s" lks | not $ null lks
] ++
+ [ printf " %s" $ string2xml $ unwords insa | not $ null insa
+ ] ++
[ ""
]
@@ -70,6 +72,7 @@
mb_civrn = ci_vrnHUB hub
glbdb = glb_dbHUB hub
mb_uh = usr___HUB hub
+ insa = inst_aHUB hub
fail_err :: HubName -> FilePath -> Err -> IO a
@@ -117,6 +120,7 @@
, chk_usrdb
, chk_usrgh
, chk_lockd
+ , chk_insta
-- depracated (no warnings yet)
, chk_hpbin
, chk_cibin
@@ -135,11 +139,12 @@
, usrghST :: Maybe FilePath
, usrdbST :: Maybe FilePath
, lockdST :: Maybe Bool
+ , instaST :: Maybe [String]
} deriving (Show)
start :: HubName -> FilePath -> Loc -> PSt
start hn fp lc =
- ST hn fp lc Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing
+ ST hn fp lc Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing
final :: HubSource -> FilePath -> HubKind -> Poss Err PSt -> Poss Err Hub
final _ _ _ (NOPE er) = NOPE er
@@ -149,17 +154,19 @@
tl <- get_tl
cv <- get_cv
gl <- get_gl
+ ia <- get_ia
mb_pr <- case (mb_ur,mb_gh) of
(Just ur,Nothing) -> (Just . ((,) ur)) `fmap` calc_gh gl
(Just ur,Just gh) -> return $ Just (ur,gh)
(Nothing,_ ) -> return Nothing
- return $ HUB hs hn hk hf co hc tl cv gl $ fmap mk_uhb mb_pr
+ return $ HUB hs hn hk hf co hc tl cv gl ia $ fmap mk_uhb mb_pr
where
get_co = maybe (YUP "" ) YUP mb_co
get_hc = maybe (NOPE hc_err ) YUP mb_hc
get_tl = maybe (YUP toolsBin) YUP mb_tl
get_cv = maybe (YUP Nothing ) (YUP . Just) mb_cv
get_gl = maybe (NOPE gl_err ) YUP mb_gl
+ get_ia = maybe (YUP [] ) YUP mb_ia
hc_err = err lc "Hub doesn't specify a GHC bin directory"
gl_err = err lc "Hub doesn't specify a global package directory"
@@ -174,7 +181,7 @@
msg = "Could not derive the global hub name from the "
++ "filepath of the global package databse"
- ST hn hf lc mb_co mb_hc mb_tl mb_cv mb_gl mb_gh mb_ur mb_lk = st
+ ST hn hf lc mb_co mb_hc mb_tl mb_cv mb_gl mb_gh mb_ur mb_lk mb_ia = st
trial :: PSt -> Node -> (PSt -> Node -> Maybe(Poss Err PSt)) -> Poss Err PSt -> Poss Err PSt
trial st nd f ps = maybe ps id $ f st nd
@@ -187,7 +194,7 @@
chk_comnt, chk_wspce, chk_hcbin, chk_tlbin,
chk_civrn, chk_glbdb, chk_usrgh, chk_usrdb,
- chk_hpbin, chk_cibin, chk_lockd :: PSt -> Node -> Maybe(Poss Err PSt)
+ chk_hpbin, chk_cibin, chk_lockd, chk_insta :: PSt -> Node -> Maybe(Poss Err PSt)
chk_wspce st nd =
case nd of
@@ -253,6 +260,13 @@
case lockdST st of
Nothing -> YUP (st{lockdST=Just $ not $ all isSpace arg})
Just _ -> NOPE $ err lc " respecified"
+
+chk_insta st0 nd = simple_node True st0 nd "insta" chk
+ where
+ chk st lc arg =
+ case instaST st of
+ Nothing -> YUP (st{instaST=Just $ words arg})
+ Just _ -> NOPE $ err lc " respecified"
-- deprecated (pre-0.3) constructions
diff --git a/Hub/Poss.hs b/Hub/Poss.hs
--- a/Hub/Poss.hs
+++ b/Hub/Poss.hs
@@ -3,7 +3,7 @@
--
-- This module reestablishes an unvandalised monadic Either type.
--
--- (c) 2011-2012 Chris Dornan
+-- (c) 2011-2015 Chris Dornan
module Hub.Poss
@@ -12,11 +12,17 @@
, ei2ps
) where
+import Control.Applicative
+
data Poss e a = NOPE e | YUP a
deriving (Show)
instance Monad (Poss e) where
(>>=) ps f = poss NOPE f ps
return = YUP
+
+instance Applicative (Poss e) where
+ (<*>) ps ps' = do f <- ps; x<-ps'; return $ f x
+ pure = return
instance Functor (Poss e) where
fmap f p = poss NOPE (YUP . f) p
diff --git a/Hub/Prog.hs b/Hub/Prog.hs
--- a/Hub/Prog.hs
+++ b/Hub/Prog.hs
@@ -41,6 +41,7 @@
| HappyP
| HaddockP
| GhcModP
+ | GhcModiP
| HLintP
| HDevToolsP
| HaskellDocsP
@@ -63,6 +64,7 @@
AlexP -> PROG p "alex" TlPT
HappyP -> PROG p "happy" TlPT
GhcModP -> PROG p "ghc-mod" TlPT
+ GhcModiP -> PROG p "ghc-modi" TlPT
HLintP -> PROG p "hlint" TlPT
HDevToolsP -> PROG p "hdevtools" TlPT
HaskellDocsP -> PROG p "haskell-docs" TlPT
diff --git a/Makefile b/Makefile
deleted file mode 100644
--- a/Makefile
+++ /dev/null
@@ -1,26 +0,0 @@
-OD = dist/build/hub
-ID = /usr/hs/bin
-HC = mkdir -p $(OD); ghc -XHaskell2010 --make -O1 -outputdir build -Wall
-VR = $(shell runghc Version)
-CM = "for building Hub ($(VR))"
-OP = '\nNo hub on path: ensure hub-src.har or hub.cabal packages are installed\n\n'
-
-all: hub
-
-hub: prep
- $(HC) -o $(OD)/hub hub.hs
-
-prep:
- hub load build-hub >> Version <<<
---
--- Keeper of the version information.
---
--- (c) 2011-2012 Chris Dornan
-
-
-module Version
- ( version
- , main
- ) where
-
-
-version :: String
-version = "1.3.0"
-
-
-main :: IO ()
-main = putStrLn version
diff --git a/help.txt b/help.txt
deleted file mode 100644
--- a/help.txt
+++ /dev/null
@@ -1,205 +0,0 @@
- Hub Help Page
-
- hub --usage is an aliase for the 'hub usage' command
- hub --help is an aliase for the 'hub help' command
- hub --version is an aliase for the 'hub version' command
-
-hub usage
-
- List the syntax of all the hub commands.
-
-hub help []
-
- List the help for a command or all commands if none specified.
-
- See "hub usage" for a command-syntax summary.
-
-hub version
-
- List the version information.
-
-hub default [|-]
-
- (Needs to be run as root.)
-
- If no arguments are given then this command lists the the default global
- hub for the system (i.e., the default global hub used to set up each
- user's 'home' hub).
-
- If a global hub is specified then will become the
- default global hub.
-
- If a '-' is specified then any older default settings are discarded and
- the system default re-established.
-
-hub ls [-a] [-q]
-
- List the user hubs belonging to the logged in user and all of the
- global hubs. If -a is specified then all hubs are listed, otherwise
- the hidden hub (those starting with "__") are ommitted. Normally the
- locked status and any comments associated with the hub are displayed,
- but these will be ommitted if the -q flag is given.
-
-hub set [|-]
-
- Set the 'current' hub for a directory and its sub-directories.
-
- The HUB environment variable can be set to a hub name to override this
- setting.
-
- '^' can genereally be specified in place of //
- in a hub command to refer to the current hub.
-
-hub info []
-
- Describe a hub. (See 'hub set' on how to set the current hub.)
-
- (See 'hub set' on how to set the current hub.)
-
-hub lock []
-
- Lock a hub so that it can not be removed or renamed or have packages
- added or removed.
-
- (See 'hub set' on how to set the current hub.)
-
-hub unlock []
-
- Remove the lock from a hub.
-
- (See 'hub lock' on locking a hub and 'hub set' on how to set the current hub.)
-
-hub name
-
- List the name of the current hub.
-
- (See 'hub set' on how to set the current hub.)
-
-hub path []
-
- List the path of the XML file defining the named or current hub.
-
- (See 'hub set' on how to set the current hub.)
-
-hub xml []
-
- List the contents of the XML file defining the named or current hub.
-
- (See 'hub set' on how to set the current hub.)
-
-hub init [-n []]
-hub init [-s] []
-
- The first form creates a new user hub with some unique name __h
- and associates the current working directory with the new hub. If
- a hub is specified then that determines the global hub for the new
- hub otherwise the current defaulkt hub is used.
-
- The second from creates the new named user hub . If
- is specified then the global hub for the new hub is determined by
- this hub otherwise the default hub is used. Iff --set is specified
- the hub associated with the current directory is set to the new hub.
-
- (See 'hub set' on how to set the current hub.)
-
-hub comment []
-
- Set the comment string for a user hub.
-
- (See 'hub set' on how to set the current hub.)
-
-hub cp []
-
- Duplicate (or the current hib) in .
-
- (See 'hub set' on how to set the current hub.)
-
-hub mv []
-
- Rename user hub (or the current hub) to .
-
- (See 'hub set' on how to set the current hub.)
-
-hub rm
-
- Delete user hub .
-
-hub swap []
-
- Swap the contents of user hub (or the current hub) with
- user hub .
-
- (See 'hub set' on how to set the current hub.)
-
-hub list []
-
- List the packages belonging to a hub (calls 'ghc-pkg list').
-
- (See 'hub set' on how to set the current hub.)
-
-hub check []
-
- Check the packages belonging to a hub are coherent
- (calls 'ghc-pkg check').
-
- (See 'hub set' on how to set the current hub.)
-
-hub install ...
-
- Equivalent to: hub install-into ^ ...
-
-hub install-into ...
-
- Uses 'cabal install' to install the named packages into a user
- hub.
-
- (See 'hub set' on how to set the current hub.)
-
-hub erase ...
-
- Equivalent to: hub esase-from ^ ...
-
-hub erase-from [-f] ...
-
- Run the garbage collector on the user hubs to reclaim library code
- that is no longer referenced by them. (The directories aren't removed
- from the file system, but moved from `~/.hubrc/heap` to
- `~/.hubrc/garbage` for manual removal.)
-
- (See 'hub set' on how to set the current hub.)
-
-hub gc
-
- Run the garbage collector to reclaim library code that is no longer
- referenced by the hubs.
-
-hub save []
-
- Save out the configuration of the hub onto standard output.
-
- (See 'hub set' on how to set the current hub.)
-
-hub load []
-
- Load the hub from standard input. If the named hub doesn't
- exist then the hub is created with the global hub specified by the
- archive. If does exist then it is checked that it is using the
- global hub specified and if necessary removed and recreated referencing
- the right global hub.
-
- Any surplus packages not mentioned in the archive are then removed.
-
- Finally any packages missing from the hub listed in the archive are
- installed with cabal-install.
-
- (See 'hub set' on how to set the current hub.)
-
-hub verify [-s] []
-
- Check that the named hub (or the default hub) uses the global hub
- specified in the archive and that it contains all of the packages
- at the versions specified by the archive. If -s is specified
- then check that the hub contains no packages other than those specified
- by the archive.
-
- (See 'hub set' on how to set the current hub.)
diff --git a/hub.cabal b/hub.cabal
--- a/hub.cabal
+++ b/hub.cabal
@@ -1,6 +1,6 @@
Name: hub
-Version: 1.3.0
-Copyright: Chris Dornan, 2011-2013
+Version: 1.4.0
+Copyright: Chris Dornan, 2011-2015
Maintainer: Chris Dornan
Author: Chris Dornan
License: BSD3
diff --git a/hub.hs b/hub.hs
--- a/hub.hs
+++ b/hub.hs
@@ -3,7 +3,7 @@
--
-- Main driver for the hub tool (see the README for details).
--
--- (c) 2011-2012 Chris Dornan
+-- (c) 2011-2015 Chris Dornan
module Main(main) where
diff --git a/hub.manifest b/hub.manifest
deleted file mode 100644
--- a/hub.manifest
+++ /dev/null
@@ -1,5 +0,0 @@
-^=7.6.3
-List-0.5.1
-hexpat-0.20.5
-process-1.2.0.0
-utf8-string-0.3.7
diff --git a/man/Makefile b/man/Makefile
deleted file mode 100644
--- a/man/Makefile
+++ /dev/null
@@ -1,19 +0,0 @@
-all: hub.1.gz hub.5.gz
-
-%.gz: %
- gzip -c $< >$@
-
-%.html: %.xml
- xmlto -m manpage-normal.xsl html $^
- mv index.html $@
-
-%.1: %-1.xml
- xmlto -m manpage-normal.xsl man $^
- bin/fixup.sh $@
-
-%.5: %-5.xml
- xmlto -m manpage-normal.xsl man $^
- bin/fixup.sh $@
-
-%.xml: %.txt
- asciidoc -b docbook -d manpage $^
diff --git a/man/bin/fixup.sh b/man/bin/fixup.sh
deleted file mode 100644
--- a/man/bin/fixup.sh
+++ /dev/null
@@ -1,28 +0,0 @@
-#!/bin/bash
-
-set -e
-
-if [ $# -ne 1 ]; then
- echo" usage: $0 "
- exit 1
-fi
-
-file=$1
-
-if [ ! -f ${file} ]; then
- echo ${file}: not found
- exit 1
-fi
-
-if [ -f ${file}.tmp ]; then
- echo ${file}.tmp: in use
- exit 1
-fi
-
-version=$(cd .. && runghc Version)
-
-mv ${file} ${file}.tmp
-
-cat ${file}.tmp | sed -e 's/\[FIXME: manual\]/User Commands/' -e "s/\\[FIXME: source\\]/Hub ${version}/" >${file}
-
-rm ${file}.tmp
diff --git a/man/hub-1.txt b/man/hub-1.txt
deleted file mode 100644
--- a/man/hub-1.txt
+++ /dev/null
@@ -1,526 +0,0 @@
-hub(1)
-======
-
-NAME
-----
-hub - manage Haskell hubs (for selecting toolchains, libraries and sandboxes)
-
-
-SYNOPSIS
---------
-
-----
- hub usage
- hub help []
- hub version
- hub default [|-]
- hub ls [-a] [-q]
- hub set [|-]
- hub info []
- hub lock []
- hub unlock []
- hub name
- hub path []
- hub xml []
- hub init [-n []]
- hub init [-s] []
- hub comment []
- hub cp []
- hub mv []
- hub rm
- hub swap []
- hub list []
- hub check []
- hub install ...
- hub install-into ...
- hub erase ...
- hub erase-from [-f] ...
- hub gc
- hub save []
- hub load []
- hub verify [-s] []
-----
-
-DESCRIPTION
------------
-
-The hub tool (i) integrates multiple releases of the Glasgow
-Haskell Compiler into a single installation with a simple
-mechanism for selecting between the installations and (ii)
-provides a sandbox mechanism, allowing users to install
-packages on a per-project basis.
-
-The tool organizes compilation contexts around so-called "hubs"
-which contain their own GHC package databases. A global hub
-is shared among all users on the system and is typically installed
-with the system package utility (e.g., 'yum' or 'apt') from
-a public repository. Each global hubs is associated with a
-single global package database.
-
-User hubs belong to individual users, point at a global hub and
-own a user package database into which the user can install packages
-with 'cabal' and 'ghc'.
-
-A directory will typically be statically associated with a hub.
-Invoking 'cabal' and 'ghc within such a directory (or any of its
-sub-directories) will select the appropriate version of GHC
-(as determined by the hub configuration) and will set up the
-tools to work with package database that is private to that
-hub.
-
-This is perhaps best illustrated by a sample session:
------
- hub init -n 7.0.4 # create new hub based on GHC-7.0.4
- # and associate the current directory with it
- cabal install SHA # install the latest version of the SHA package
- # in the user package database of the hub
- ghci crypto.hs # load crypto.hs into 'ghci', which may make use of
- # the GHC-7.0.4 core packages and the SHA
- # package and any of its dependent packages.
------
-(This assumes GHC-7.0.4 is already installed; if not it may need to be
-installed first with, for example 'yum install ghc-7.0.4-hub'.)
-
-Each hub is named. We didn't specify a name for the new hub in the above
-example so a new unused name like '__h006' will have been chosen. It could
-be renamed to something more distinctive and then associated with another work
-tree.
------
- hub mv __h006 crypto # rename hub to something more memorable
- hub set crypto # remember to re-associate the current directory
- # with the newly-named hub
- cd ~/digest # switch to another work tree
- hub set crypto # associate it with the crypto hub
------
-Now both work trees will be associated with the 'crypto' hub and any changes
-made to it -- adding or removing packages -- will be reflected in the GHC
-compilation context of both work trees.
-
-To list all of the hub available to a user use
------
- hub ls
------
-The listing won't include any hubs with names that start with '__'. To see
-these in the listing use.
------
- hub ls -a
------
-
-To find out more about an individual hub use
------
- hub info crypto
------
-
-Note that global hub names start with a digit (e.g., '7.0.4',
-'2011.4.0.0') and user hub names start with a letter or underscore
-(e.g., 'crypto', '__h006').
-
-As well as the directory context, the 'HUB' environment variable can
-be used to select the context for Haskell toolkit command. E.g.,
------
- HUB=2011.2.0.1 ghc-pkg list
------
-If the HUB environment variable is set it will always take precedence over
-any directory settings.
-
-To copy, rename, remove, swap, (un)lock, save, verify or load
-a hub then use the 'hub cp', 'hub mv', 'hub rm', 'hub swap',
-'hub lock', 'hub unlock', 'hub save', 'hub verify' or 'hub load',
-respectively (see below).
-
-If you have acquired the hub tool by installing the hub package
-everything should be set up for you. Otherwise, you will have to
-install the hub binary on your execution path under its own name ('hub')
-and under the name of each of the standard GHC tools ('ghc', 'ghci',
-'ghc-pkg', etc., and 'cabal') you want it to manage. (This is usually
-managed by installing the hub program into a directory (like `/usr/hs/bin`)
-and creating links from 'ghc', 'ghci', 'ghc-pkg', 'cabal', etc. to the
-'hub' program.)
-
-To add a new global hub you will have to install an xml file in
-`/usr/hs/hub (see hub(5) for details of the format of this file). Each
-global hub configuration must specify where the compiler tools
-are located.
-
-
-COMMANDS
---------
-
-
-`hub usage`::
-
- Lists the syntax of all the hub commands.
-
-
-`hub help []`::
-
- Lists the help for a command or all commands if none
- specified. See "hub usage" for a command-syntax summary.
-
-
-`hub version`::
-
- Lists the version information.
-
-
-`hub default [|-]`::
-
- (Needs to be run as root.) If no arguments are given then this
- command lists the the default global hub for the system (i.e.,
- the default global hub used to set up each user's 'home' hub). If
- a global hub is specified then will become the
- default global hub. If a '-' is specified then any older default
- settings are discarded and the system default re-established.
-
-
-`hub ls [-a] [-q]`::
-
- List the user hubs belonging to the logged in user and all of the
- global hubs. If -a is specified then all hubs are listed, otherwise
- the hidden hub (those starting with "__") are ommitted. Normally the
- locked status and any comments associated with the hub are displayed,
- but these will be ommitted if the -q flag is given.
-
-
-`hub set [|-]`::
-
- Set the 'current' hub for a directory and its sub-directories.
- The HUB environment variable can be set to a hub name to override
- this setting.
-
-
-`hub info []`::
-
- Describe a hub. (See 'hub set' on how to set the current hub.)
-
-
-`hub lock []`::
-
- Lock a hub so that it can not be removed or renamed or have packages
- added or removed.
-
-
-`hub unlock []`::
-
- Remove the lock from a hub (see `hub lock` above).
-
-
-`hub name`::
-
- List the name of the current hub. (See 'hub set' on how to set
- the current hub.)
-
-
-`hub path []`::
-
- List the path of the XML file defining the named or current
- hub.
-
-
-`hub xml []`::
-
- List the contents of the XML file defining the named or current
- hub.
-
-
-`hub init [-n []]`::
-
- (See also 'hub init [-s]' below.) Create a new user hub with some
- unique name __h and associates the current working directory with
- the new hub. If a hub is specified then that determines the global
- hub for the new hub otherwise the current default hub is used.
-
-
-`hub init [-s] [] `::
-
- (See also 'hub init -n' above.) Create the new named user hub .
- If is specified then the global hub for the new hub is determined by
- this hub otherwise the default hub is used. Iff -s is specified
- the hub associated with the current directory is set to the new hub.
-
-
-`hub cp [] `::
-
- Duplicate (or the current hub) in
- . (See 'hub set' on how to set the current hub.)
-
-
-`hub mv [] `::
-
- Renames user hub (or the current hub) to . (See
- 'hub set' on how to set the current hub.)
-
-
-`hub rm `::
-
- Deletes user hub .
-
-
-`hub swap [] `::
-
- Swaps the contents of user hub (or the current hub) with
- user hub .
-
-
-`hub list []`::
-
- List the packages belonging to a hub (calls 'ghc-pkg list').
-
-
-`hub check []`::
-
- Check the packages belonging to a hub are coherent
- (calls 'ghc-pkg check').
-
-
-`hub install `... ::
-
- Equivalent to: hub install-into ^ ...
-
-
-`hub install-into `... ::
-
- Uses 'cabal install' to install the named packages into the named
- hub (or the current hub). (See 'hub set' on how to set the current hub.)
-
-
-`hub erase `... ::
-
- Equivalent to: hub erase-from ^ ...
-
-
-`hub erase-from `...::
-
- Determine all of the packages dependent on the list of named packaqes
- in the hub, lists them and offers to remove them from the hub (by
- invoking 'ghc-pkg unregister'). (See 'hub set' on how to set the
- current hub.)
-
-
-`hub gc`::
-
- Run the garbage collector on the user hubs to reclaim library code
- that is no longer referenced by them. (The directories aren't removed
- from the file system, but moved from `~/.hubrc/heap` to
- `~/.hubrc/garbage` for manual removal.)
-
-`hub save []`::
-
- Save out the configuration of the hub onto standard output.
- (See 'hub set' on how to set the current hub.)
-
-
-`hub load []`::
-
- Load the hub from standard input. (i) If the named hub doesn't
- exist then the hub is created with the global hub specified by the
- archive; but If does exist then it is checked that it is using
- the global hub specified and if necessary removed and recreated
- referencing the right global hub. (ii) Any surplus packages not
- mentioned in the archive are then removed. (iii) Finally any packages
- missing from the hub listed in the archive are installed with
- `cabal-install`.
-
-
-`hub verify [-s] []`::
-
- Check that the named hub (or the default hub) uses the global hub
- specified in the archive and that it contains all of the packages
- at the versions specified by the archive. If -s is specified
- then check that the hub contains no packages other than those specified
- by the archive.
-
-
-EXAMPLE 1
----------
-
-List the packages in the (installed) 2011.2.0.1 Haskell Platform:
-
-----
- HUB=2011.2.0.1 ghc-pkg list
-----
-
-or equivalently,
-
-----
- hub list 2011.2.0.1
-----
-
-
-EXAMPLE 2
----------
-
-Create a new hub based on the default hub, attach it to the current directory
-and install the latest edition of `hexpat` into it.
-
-----
- hub init
- cabal install hexpat
-----
-
-
-EXAMPLE 3
----------
-
-Duplicates the contents of hub `foo` into hub `bar`
-and installs the SHA package into it.
-
-----
- hub cp foo bar
- hub install-into bar SHA
-----
-
-
-EXAMPLE 4
----------
-
-Unpacks `GLUT-2.1.2.1` and runs one of its example programs using the
-(installed) Haskell Platform 2011.2.0.1.
-
-----
- cabal unpack GLUT-2.1.2.1
- HUB=2011.2.0.1 runhaskell GLUT-2.1.2.1/examples/BOGLGP/Chapter01/Simple.hs
-----
-
-
-EXAMPLE 5
----------
-
-Install the `SHA` package into `my-test` and lock the hub against it being
-removed, renamed or having packages added or removed.
-----
- hub install-into my-test SHA
- hub lock my-test
-----
-
-
-EXAMPLE 6
----------
-
-Remove the `text` package from the current hub, performs a garbage collection
-of the user hubs and check all of the package databases for consistency
-(assumes `bash`).
-
-----
- hub erase text
- hub gc
- for h in $(hub ls -a -q); do hub check ${h}; done
-----
-
-
-EXAMPLE 7
----------
-
-Archive the current hub into precious.har.
-
-----
- hub save >precious.har
-----
-
-
-EXAMPLE 8
----------
-
-(i) Load hub precious from `precsious.har`, creating the hub and erasing and
-installing packages as necessary; doing nothing if the hub already exists
-in the correct configuration. (ii) Configure the current work tree to use
-`precious`. (iii) Use `precious` to compile `golum.hs`.
-
-----
- hub load precious .xml`::
-
- Contains the hub-spefification file for user hub .
-
-`~/.hubrc/lib//package.config`::
-
- Contains the package database for user hub .
-
-`~/.hubrc/heap`::
-
- Contains directories containing the library files for the
- packages installed in the user hubs.
-
-`~/.hubrc/garbage`::
-
- Contains directories removed from `~/.hubrc/heap` by the garbage collector.
-
-`/usr/hs/bin`::
- The standard location for the 'hub' program and the rest of
- the Haskell tools (as links to the 'hub' program) -- this directory
- should be put on the PATH if the tools aren't installed in /usr/bin.
-
-`/usr/hs/hub/.xml`::
-
- XML configuration file for global hub .
-
-`/usr/hs/db`::
-
- Standard location for the package databases for system hubs.
-
-`/usr/hs/ghc/`::
-
- Standard location for GHC installation.
-
-`/usr/hs/hp/`::
-
- Standard installation locations for Haskell Platform .
-
-
-SEE ALSO
---------
-
-hub(5)::
-
- Describes the format of the XML configuration files used to
- configure the user and global hubs.
-
-
-http://justhub.org::
-
- The home page of the JustHub distribution contains
- introductory material and links to wikis and articles.
-
-
-BUGS
-----
-
-The Hub issue tracker is at https://github.com/haskell-hub/hub-src/issues.
-
-
-
-AUTHOR
-------
-Chris Dornan
diff --git a/man/hub-5.txt b/man/hub-5.txt
deleted file mode 100644
--- a/man/hub-5.txt
+++ /dev/null
@@ -1,127 +0,0 @@
-hub(5)
-======
-
-
-NAME
-----
-hub - syntax of XML files used to configure Haskell hubs
-
-
-SYNOPSIS
---------
-
-A Hub configuration file is an XML file that always contains a
-`` node, which will contain a '', ``, '' and
-`` sub-nodes.
-
-If (and only if) the file is configuring a user hub, it will also have a
-`` and `` sub-nodes and possibly a `` sub-node.
-
-
-DESCRIPTION
------------
-
-``::
-
- Brief single-line of text describing the hub.
-
-``::
-
- The path of the `bin` directory containing the `ghc` tools
- to be used with the hub.
-
-``::
-
- The path of directory containing the generic tools (especially `cabal`)
- to be used with the hub.
-
-``::
-
- The version of 'Cabal-install' to use with this hub. The presence of this
- node is optional. When present it will force the use of
- '/cabal-' for the cabal executable.
-
-``::
-
- The path of the global package database to be used with the
- hub.
-
-``::
-
- The name of the global hub associated with this user hub (present for
- user hubs only).
-
-``::
-
- The path of the user package database to be used with the
- hub (present for user hubs only).
-
-``::
-
- The presence of this node signifies that the hub is locked. If it is
- present it should contain the string "rmie". (Only user hubs may
- be locked.)
-
-
-EXAMPLE 1
----------
-
-Hub configuration file for global hub `2011.2.0.1`:
-
-----
-
- Haskell Platform 2011.2.0.1
- /usr/hs/ghc/7.0.3/bin
- /usr/hs/db/2011.2.0.1.d
-
-----
-
-
-EXAMPLE 2
----------
-
-Hub configuration file for hub `home`, a user hub based
-on the global hub `7.4.1`:
-
-----
-
- Hub for building the hub tool
- /usr/hs/ghc/7.4.1/bin
- /usr/hs/tools
- 0.14.0
- 7.4.1
- /usr/hs/db/7.4.1.d
- /home/chris/.hubrc/lib/hub-src/package.config
-
-----
-
-
-FILES
------
-
-`~/.hubrc/hub/.xml`::
-
- Contains the hub-spefification file for user hub .
-
-`/usr/hs/hub/.xml`::
-
- XML configuration file for global hub .
-
-
-SEE ALSO
---------
-
-hub(1)::
-
- The hub command for managing and configuring user hubs.
-
-
-http://justhub.org::
-
- The home page of the JustHub distribution contains
- introductory material and links to wikis and articles.
-
-
-AUTHOR
-------
-Chris Dornan
diff --git a/man/hub.1.gz b/man/hub.1.gz
deleted file mode 100644
Binary files a/man/hub.1.gz and /dev/null differ
diff --git a/man/hub.5.gz b/man/hub.5.gz
deleted file mode 100644
Binary files a/man/hub.5.gz and /dev/null differ
diff --git a/man/manpage-base.xsl b/man/manpage-base.xsl
deleted file mode 100644
--- a/man/manpage-base.xsl
+++ /dev/null
@@ -1,35 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
- sp
-
-
-
-
-
-
-
- br
-
-
-
diff --git a/man/manpage-normal.xsl b/man/manpage-normal.xsl
deleted file mode 100644
--- a/man/manpage-normal.xsl
+++ /dev/null
@@ -1,13 +0,0 @@
-
-
-
-
-
-
-\
-.
-
-
diff --git a/prep.hs b/prep.hs
deleted file mode 100644
--- a/prep.hs
+++ /dev/null
@@ -1,38 +0,0 @@
---
--- >>> Main (prep) <<<
---
--- This program 'Haskelises' the hub help text.
---
--- (c) 2011-2012 Chris Dornan
-
-
-module Main(main) where
-
-import System.Locale
-import Data.Time
-import Text.Printf
-
-
-main :: IO ()
-main =
- do cts <- readFile "help.txt"
- writeFile "Hub/HelpText.hs" $ mk_text_mod "Hub.HelpText" "helpText" cts
-
-mk_text_mod :: String -> String -> String -> String
-mk_text_mod mn fn cts =
- case lines cts of
- [] -> error "that is strange, the text file is empty"
- ln:lns -> unlines $ pre ln ++ foldr mdl pst lns
- where
- pre ln = [ printf "module %s(%s) where" mn fn
- , ""
- , printf "%s :: String" fn
- , printf "%s = unlines" fn
- , printf " [ %s" $ show ln
- ]
-
- mdl ln t = [ printf " , %s" $ show ln
- ] ++ t
-
- pst = [ " ]"
- ]