[PATCH 42/42] gnu: Add darcs.

[ng0]

* gnu/packages/version-control.scm (darcs): New variable.
---
 gnu/packages/version-control.scm | 95 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 95 insertions(+)

diff --git a/gnu/packages/version-control.scm b/gnu/packages/version-control.scm
index 29559bd..ae3728d 100644
--- a/gnu/packages/version-control.scm
+++ b/gnu/packages/version-control.scm
@@ -35,6 +35,7 @@
   #:use-module (guix git-download)
   #:use-module (guix build-system cmake)
   #:use-module (guix build-system gnu)
+  #:use-module (guix build-system haskell)
   #:use-module (guix build-system python)
   #:use-module (guix build-system trivial)
   #:use-module (gnu packages apr)
@@ -50,6 +51,7 @@
   #:use-module (gnu packages flex)
   #:use-module (gnu packages gettext)
   #:use-module (gnu packages groff)
+  #:use-module (gnu packages haskell)
   #:use-module (gnu packages linux)
   #:use-module (gnu packages nano)
   #:use-module (gnu packages ncurses)
@@ -1249,3 +1251,96 @@ a built-in wiki, built-in file browsing, built-in 
tickets system, etc.")
     (description "Stagit creates static pages for git repositories, the 
results can
 be served with a HTTP file server of your choice.")
     (license license:expat)))
+
+;; Darcs has no https support: http://irclog.perlgeek.de/darcs/2016-09-17
+;; http://darcs.net/manual/Configuring_darcs.html#SECTION00440070000000000000
+;; and results of search engines will show that if the protocol is http, https
+;; is never mentioned.
+(define-public darcs
+  (package
+    (name "darcs")
+    (version "2.12.4")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "https://hackage.haskell.org/package/darcs/";
+                                  "darcs-" version ".tar.gz"))
+              (sha256
+               (base32
+                "0jfwiwl5k8wspciq1kpmvh5yap4japrf97s9pvhcybxxhaj3ds28"))))
+    (build-system haskell-build-system)
+    (arguments
+     `(#:configure-flags '("-fpkgconfig" "-fcurl" "-flibiconv" "-fthreaded"
+                           "-fnetwork-uri" "-fhttp" "--flag=executable"
+                           "--flag=library")
+       #:tests? #f)) ; 20 failing shell tests out of over 400
+    (inputs
+     `(("ghc-cmdargs" ,ghc-cmdargs) ; cmdargs ==0.10.*,
+       ("ghc-split" ,ghc-split) ; split >=0.2.2 && <0.3,
+       ("ghc-test-framework-quickcheck2" ,ghc-test-framework-quickcheck2) ; 
==0.3.*
+       ("ghc-test-framework-hunit" ,ghc-test-framework-hunit) ; >=0.2.2 && 
<0.4,
+       ("ghc-test-framework" ,ghc-test-framework) ; test-framework >=0.4.0 && 
<0.9,
+       ("ghc-quickcheck" ,ghc-quickcheck) ; QuickCheck >=2.6 && <2.9,
+       ("ghc-findbin" ,ghc-findbin) ; FindBin ==0.0.*,
+       ("ghc-hunit" ,ghc-hunit) ; HUnit >=1.2.5.2 && <1.4,
+       ("ghc-array" ,ghc-array) ; (>=0.4.0.1 && <0.6)
+       ("ghc-async" ,ghc-async) ; (>=2.0.1.4 && <2.2)
+       ("ghc-attoparsec" ,ghc-attoparsec) ; (>=0.11 && <0.14)
+       ;; base (>=4.6 && <4.10)
+       ("ghc-base16-bytestring" ,ghc-base16-bytestring) ; (==0.1.*)
+       ("ghc-binary" ,ghc-binary) ; (>=0.5 && <0.9)
+       ("ghc-bytestring-builder" ,ghc-bytestring-builder) ; (>=0.10.0.2 && 
<0.11)
+       ;; containers (==0.5.*)
+       ("ghc-cryptohash" ,ghc-cryptohash) ; (>=0.4 && <0.12)
+       ("ghc-data-ordlist" ,ghc-data-ordlist) ; (==0.4.*)
+       ("ghc-directory" ,ghc-directory) ; (>=1.2.0.1 && <1.3.0.0)
+       ("ghc-fgl" ,ghc-fgl) ; (>=5.5.0.1 && <5.6)
+       ("ghc-system-filepath" ,ghc-system-filepath) ; (>=1.3.0.1 && <1.5.0.0)
+       ("ghc-graphviz" ,ghc-graphviz) ; (>=2999.17.0.1 && <2999.19)
+       ("ghc-hashable" ,ghc-hashable) ; (>=1.1.2.5 && <1.3)
+       ("ghc-haskeline" ,ghc-haskeline) ; (>=0.6.3 && <0.8)
+       ("ghc-html" ,ghc-html) ; (>=1.0.1.2 && <1.1)
+       ("ghc-mmap" ,ghc-mmap) ; (==0.5.*)
+       ("ghc-mtl" ,ghc-mtl) ; (>=2.1.2 && <2.3)
+       ("ghc-old-time" ,ghc-old-time) ; (==1.1.*)
+       ("ghc-parsec" ,ghc-parsec) ; (==3.1.*)
+       ("ghc-process" ,ghc-process) ; (>=1.1.0.2 && <1.5.0.0)
+       ("ghc-random" ,ghc-random) ; (>=1.0.1.1 && <1.2)
+       ("ghc-regex-applicative" ,ghc-regex-applicative) ; (>=0.2 && <0.4)
+       ("ghc-regex-compat-tdfa" ,ghc-regex-compat-tdfa) ; (>=0.95.1 && <0.96)
+       ("ghc-sandi" ,ghc-sandi) ; (>=0.2 && <0.4)
+       ("ghc-shelly" ,ghc-shelly) ; shelly >=1.6.2 && <1.7,
+       ("ghc-tar" ,ghc-tar) ; (>=0.4 && <0.6)
+       ;;("ghc-transformers" ,ghc-transformers) ; (>=0.3 && <0.4.0.0 || 
>0.4.0.0 && <0.6)
+       ("ghc-transformers-compat" ,ghc-transformers-compat) ; (>=0.4 && <0.6)
+       ("ghc-unix-compat" ,ghc-unix-compat) ; (>=0.1.2 && <0.5)
+       ("ghc-utf8-string" ,ghc-utf8-string) ; (>=0.3.6 && <1.1)
+       ("ghc-vector" ,ghc-vector) ; (>=0.10.0.1 && <0.12)
+       ("ghc-zip-archive" ,ghc-zip-archive) ; (>=0.2.3 && <0.4)
+       ("ghc-zlib" ,ghc-zlib) ; (>=0.5.4.1 && <0.7.0.0)
+       ("ghc-http" ,ghc-http) ; HTTP >=4000.2.8 && <4000.4
+       ("curl" ,curl)
+       ("ghc" ,ghc) ; >= 7.10.2
+       ("ncurses" ,ncurses)
+       ("perl" ,perl)
+       ("libiconv" ,libiconv)
+       ("ghc-network" ,ghc-network)
+       ("ghc-network-uri" ,ghc-network-uri)))
+    (native-inputs
+     `(("pkg-config" ,pkg-config)))
+    (home-page "http://darcs.net";)
+    (synopsis "Distributed Revision Control System")
+    (description
+     "Darcs is a revision control system.  It is:
+
address@hidden
address@hidden Distributed: Every user has access to the full command set, 
removing boundaries
+between server and client or committer and non-committers.
address@hidden Interactive: Darcs is easy to learn and efficient to use because 
it asks you
+questions in response to simple commands, giving you choices in your work flow.
+You can choose to record one change in a file, while ignoring another.  As you 
update
+from upstream, you can review each patch name, even the full diff for 
interesting
+patches.
address@hidden Smart: Originally developed by physicist David Roundy, darcs is 
based on a
+unique algebra of patches.
address@hidden enumerate")
+    (license license:gpl2)))
-- 
2.10.0