~singpolyma/cheogram

c1e627735bbcaf0cbdfb80225ab1052dd0f12964 — Stephen Paul Weber 4 months ago 26010d5
Guixify
6 files changed, 727 insertions(+), 35 deletions(-)

M .gitignore
M Makefile
M README
M cheogram.cabal
A guix.scm
A manifest.scm
M .gitignore => .gitignore +3 -0
@@ 1,2 1,5 @@
dist/
report.html
cheogram
*.o
*.hi

M Makefile => Makefile +8 -30
@@ 1,41 1,19 @@
GHCFLAGS=-Wall -Wno-tabs -Wno-orphans -Wno-name-shadowing -XHaskell2010 -O2 -threaded
HLINTFLAGS=-XHaskell2010 -XCPP -i 'Use camelCase' -i 'Use String' -i 'Use head' -i 'Use string literal' -i 'Use list comprehension'
VERSION=0.0.1

.PHONY: all shell clean doc install
.PHONY: all shell clean

all: report.html doc dist/build/libHScheogram-$(VERSION).a dist/cheogram-$(VERSION).tar.gz
all: report.html cheogram

install: dist/build/libHScheogram-$(VERSION).a
	cabal install
cheogram: Main.hs Adhoc.hs Config.hs ConfigureDirectMessageRoute.hs DB.hs IQManager.hs RedisURL.hs StanzaRec.hs UniquePrefix.hs Util.hs
	ghc -dynamic -package monads-tf -o cheogram Main.hs

shell:
	ghci $(GHCFLAGS)

report.html: Main.hs
report.html: Main.hs Adhoc.hs Config.hs ConfigureDirectMessageRoute.hs DB.hs IQManager.hs RedisURL.hs StanzaRec.hs UniquePrefix.hs Util.hs
	-hlint $(HLINTFLAGS) --report $^

doc: dist/doc/html/cheogram/index.html README

README: cheogram.cabal
	tail -n+$$(( `grep -n ^description: $^ | head -n1 | cut -d: -f1` + 1 )) $^ > .$@
	head -n+$$(( `grep -n ^$$ .$@ | head -n1 | cut -d: -f1` - 1 )) .$@ > $@
	-printf ',s/        //g\n,s/^.$$//g\n,s/\\\\\\//\\//g\nw\nq\n' | ed $@
	$(RM) .$@

dist/doc/html/cheogram/index.html: dist/setup-config Main.hs
	cabal haddock --hyperlink-source

dist/setup-config: cheogram.cabal
	cabal configure
shell:
	ghci $(GHCFLAGS)

clean:
	find -name '*.o' -o -name '*.hi' | xargs $(RM)
	$(RM) -r dist

dist/build/libHScheogram-$(VERSION).a: dist/setup-config Main.hs
	cabal build --ghc-options="$(GHCFLAGS)"

dist/cheogram-$(VERSION).tar.gz: README dist/setup-config Main.hs
	cabal check
	cabal sdist
	$(RM) cheogram report.html

M README => README +6 -1
@@ 1,3 1,8 @@
Part of the soprani.ca family of projects.

Please report bugs and send patches to dev@singpolyma.net or join us in xmpp:discuss@conference.soprani.ca?join
\ No newline at end of file
Please report bugs and send patches to dev@singpolyma.net or join us in xmpp:discuss@conference.soprani.ca?join

To build, run:

    guix shell
    make

M cheogram.cabal => cheogram.cabal +2 -4
@@ 41,7 41,7 @@ executable cheogram
                HostAndPort,
                HTTP,
                http-types,
                http-streams < 0.8.6.1,
                http-streams,
                hstatsd,
                io-streams,
                jingle,


@@ 58,14 58,12 @@ executable cheogram
                stm-delay,
                text,
                time,
                tokyocabinet-haskell,
                uuid,
                unexceptionalio,
                unexceptionalio-trans,
                utility-ht,
                xml-types,
                -- temporary fix for https://github.com/Gabriel439/Haskell-MMorph-Library/issues/54
                mmorph < 1.1.4
                mmorph

source-repository head
        type:     git

A guix.scm => guix.scm +701 -0
@@ 0,0 1,701 @@
(use-modules
  ((guix licenses) #:prefix license:)
  (guix packages)
  (guix download)
  (guix git-download)
  (guix build-system haskell)
  (gnu packages pkg-config)
  (gnu packages tls)
  (gnu packages gsasl)
  (gnu packages libidn)
  (gnu packages xml)
  (gnu packages dhall)
  (gnu packages haskell)
  (gnu packages haskell-check)
  (gnu packages haskell-crypto)
  (gnu packages haskell-web)
  (gnu packages haskell-xyz)
  (ice-9 rdelim)
  (ice-9 popen)
)

(define-public ghc-unexceptionalio-trans
  (package
    (name "ghc-unexceptionalio-trans")
    (version "0.5.1")
    (source
      (origin
        (method url-fetch)
        (uri (hackage-uri "unexceptionalio-trans" version))
        (sha256
          (base32 "100sfbrpaldz37a176qpfkk1nx5acyh8pchjmb8g5vhzbhyrqniz"))))
    (build-system haskell-build-system)
    (inputs (list ghc-unexceptionalio))
    (arguments
      `(#:cabal-revision
        ("1" "0f15n8hqqczwjrcqxwjp2mrd9iycv53sylv407c95nb6d4hw93ci")))
    (home-page "https://github.com/singpolyma/unexceptionalio-trans")
    (synopsis "A wrapper around UnexceptionalIO using monad transformers")
    (description
      "UnexceptionalIO provides a basic type to witness having caught all exceptions you can safely handle.  This library builds on that with transformers like ExceptT to provide a more ergonomic tool for many cases. . It is intended that you use qualified imports with this library. . > import UnexceptionalIO.Trans (UIO) > import qualified UnexceptionalIO.Trans as UIO")
    (license #f)))

(define-public ghc-cache
  (package
    (name "ghc-cache")
    (version "0.1.3.0")
    (source
      (origin
        (method url-fetch)
        (uri (string-append
               "https://hackage.haskell.org/package/cache/cache-"
               version
               ".tar.gz"))
        (sha256
          (base32 "0d75257kvjpnv95ja50x5cs77pj8ccfr0nh9q5gzvcps83qdksa2"))))
    (build-system haskell-build-system)
    (inputs
      `(("ghc-clock" ,ghc-clock)
        ("ghc-hashable" ,ghc-hashable)
        ("ghc-unordered-containers" ,ghc-unordered-containers)))
    (native-inputs
      `(("ghc-hspec" ,ghc-hspec)
        ("hspec-discover" ,hspec-discover)))
    (home-page "https://github.com/hverr/haskell-cache#readme")
    (synopsis "An in-memory key/value store with expiration support")
    (description
      "An in-memory key/value store with expiration support, similar to patrickmn/go-cache for Go. . The cache is a shared mutable HashMap implemented using STM and with support for expiration times.")
    (license license:bsd-3)))

(define-public ghc-scanner
  (package
    (name "ghc-scanner")
    (version "0.3.1")
    (source
      (origin
        (method url-fetch)
        (uri (string-append
               "https://hackage.haskell.org/package/scanner/scanner-"
               version
               ".tar.gz"))
        (sha256
          (base32 "1mhqh94qra08zidqfsq0gxi83cgflqldnk9rr53haynbgmd5y82k"))))
    (build-system haskell-build-system)
    (inputs `(("ghc-fail" ,ghc-fail)))
    (native-inputs
      `(("ghc-hspec" ,ghc-hspec)
        ("pkg-config" ,pkg-config)))
    (home-page "https://github.com/Yuras/scanner")
    (synopsis
      "Fast non-backtracking incremental combinator parsing for bytestrings")
    (description
      "Parser combinator library designed to be fast. It doesn't support backtracking.")
    (license license:bsd-3)))

(define-public ghc-hedis
  (package
    (name "ghc-hedis")
    (version "0.12.11")
    (source
      (origin
        (method url-fetch)
        (uri (string-append
               "https://hackage.haskell.org/package/hedis/hedis-"
               version
               ".tar.gz"))
        (sha256
          (base32 "1n83zwg011n9w2v1zz4mwpms9jh3c8mk700zya4as1jg83748xww"))))
    (build-system haskell-build-system)
    (arguments
     `(#:phases
       (modify-phases %standard-phases
         (replace 'check
           (lambda _
             ; The main tests require redis-server running, but not doctest
             (invoke "runhaskell" "Setup.hs" "test" "doctest")
             #t)))))
    (inputs
      `(("ghc-scanner" ,ghc-scanner)
        ("ghc-async" ,ghc-async)
        ("ghc-bytestring-lexing" ,ghc-bytestring-lexing)
        ("ghc-unordered-containers" ,ghc-unordered-containers)
        ("ghc-network" ,ghc-network)
        ("ghc-resource-pool" ,ghc-resource-pool)
        ("ghc-tls" ,ghc-tls)
        ("ghc-vector" ,ghc-vector)
        ("ghc-http" ,ghc-http)
        ("ghc-errors" ,ghc-errors)
        ("ghc-network-uri" ,ghc-network-uri)))
    (native-inputs
      `(("ghc-hunit" ,ghc-hunit)
        ("ghc-test-framework" ,ghc-test-framework)
        ("ghc-test-framework-hunit" ,ghc-test-framework-hunit)
        ("ghc-doctest" ,ghc-doctest)))
    (home-page "https://github.com/informatikr/hedis")
    (synopsis
      "Client library for the Redis datastore: supports full command set, pipelining.")
    (description
      "Redis is an open source, advanced key-value store. It is often referred to as a data structure server since keys can contain strings, hashes, lists, sets and sorted sets. This library is a Haskell client for the Redis datastore. Compared to other Haskell client libraries it has some advantages: . [Compatibility with Latest Stable Redis:] Hedis is intended to be used with the latest stable version of Redis (currently 5.0). Most redis commands (<http://redis.io/commands>) are available as haskell functions, although MONITOR and SYNC are intentionally omitted. Additionally, a low-level API is exposed that  makes it easy for the library user to implement further commands, such as new commands from an experimental Redis version. . [Automatic Optimal Pipelining:] Commands are pipelined (<http://redis.io/topics/pipelining>) as much as possible without any work by the user. See <http://informatikr.com/2012/redis-pipelining.html> for a technical explanation of automatic optimal pipelining. . [Enforced Pub\\/Sub semantics:] When subscribed to the Redis Pub\\/Sub server (<http://redis.io/topics/pubsub>), clients are not allowed to issue commands other than subscribing to or unsubscribing from channels. This library uses the type system to enforce the correct behavior. . [Connect via TCP or Unix Domain Socket:] TCP sockets are the default way to connect to a Redis server. For connections to a server on the same machine, Unix domain sockets offer higher performance than the standard TCP connection. . For detailed documentation, see the \"Database.Redis\" module. .")
    (license license:bsd-3)))

(define-public ghc-libxml-sax
  (package
    (name "ghc-libxml-sax")
    (version "0.7.5")
    (source
      (origin
        (method url-fetch)
        (uri (string-append
               "https://hackage.haskell.org/package/libxml-sax/libxml-sax-"
               version
               ".tar.gz"))
        (sha256
          (base32 "0lbdq6lmiyrnzk6gkx09vvp928wj8qnqnqfzy14mfv0drj21f54r"))))
    (build-system haskell-build-system)
    (inputs
      `(("ghc-xml-types" ,ghc-xml-types)
        ("libxml2" ,libxml2)))
    (native-inputs `(("pkg-config" ,pkg-config)))
    (home-page "https://john-millikin.com/software/haskell-libxml/")
    (synopsis "Bindings for the libXML2 SAX interface")
    (description "")
    (license license:expat)))

(define-public ghc-gsasl
  (package
    (name "ghc-gsasl")
    (version "0.3.7")
    (source
      (origin
        (method url-fetch)
        (uri (string-append
               "https://hackage.haskell.org/package/gsasl/gsasl-"
               version
               ".tar.gz"))
        (sha256
          (base32 "11i12r9s30jrq8hkgqagf2fd129r6ya607s9ibw549ablsxgr507"))))
    (build-system haskell-build-system)
    (arguments
      `(#:cabal-revision
        ("1" "1c806a82qd1hkxxfh1mwk0i062bz6fkaap5ys3n4x9n6wjv7ilin")))
    (inputs
      `(("ghc-monad-loops" ,ghc-monad-loops)
        ("gsasl" ,gsasl)))
    (native-inputs `(("pkg-config" ,pkg-config)))
    (home-page "https://git.singpolyma.net/gsasl-haskell")
    (synopsis "Bindings for GNU libgsasl")
    (description "")
    (license license:gpl3)))

(define-public ghc-gnutls
  (package
    (name "ghc-gnutls")
    (version "0.2")
    (source
      (origin
        (method url-fetch)
        (uri (string-append
               "https://hackage.haskell.org/package/gnutls/gnutls-"
               version
               ".tar.gz"))
        (sha256
          (base32 "1c5pm0d80wpgh2bkcgbvmc72agf89h8ghfnrn1m1x3fljbgzvrn0"))))
    (build-system haskell-build-system)
    (inputs
      `(("ghc-monads-tf" ,ghc-monads-tf)
        ("gnutls" ,gnutls)))
    (native-inputs `(("pkg-config" ,pkg-config)))
    (home-page "https://john-millikin.com/software/haskell-gnutls/")
    (synopsis "Bindings for GNU libgnutls")
    (description
      "You almost certainly don't want to depend on this release. . This is a pre-alpha, almost useless release; its only purpose is to enable TLS support in some of my other libraries. More complete bindings for GNU TLS will be released at a later date.")
    (license license:gpl3)))

(define-public ghc-gnuidn
  (package
    (name "ghc-gnuidn")
    (version "0.2.2")
    (source
      (origin
        (method url-fetch)
        (uri (string-append
               "https://hackage.haskell.org/package/gnuidn/gnuidn-"
               version
               ".tar.gz"))
        (sha256
          (base32 "0vxrcp9xz5gsvx60k12991zn5c9nk3fgg0yw7dixbsjcfqgnnd31"))))
    (build-system haskell-build-system)
    (arguments
     `(#:phases
       (modify-phases %standard-phases
         (add-after 'unpack 'less-strict-dependencies
           (lambda _
             (substitute* "gnuidn.cabal"
               (("chell >= 0.4 && < 0.5") "chell <0.6"))
             #t)))))
    (inputs `(("libidn" ,libidn)))
    (native-inputs
      `(("ghc-chell" ,ghc-chell)
        ("ghc-c2hs" ,ghc-c2hs)
        ("ghc-chell-quickcheck" ,ghc-chell-quickcheck)
        ("ghc-quickcheck" ,ghc-quickcheck)
        ("pkg-config" ,pkg-config)))
    (home-page "https://john-millikin.com/software/haskell-gnuidn/")
    (synopsis "Bindings for GNU IDN")
    (description "")
    (license license:gpl3)))

(define-public ghc-network-simple
  (package
    (name "ghc-network-simple")
    (version "0.4.5")
    (source
      (origin
        (method url-fetch)
        (uri (hackage-uri "network-simple" version))
        (sha256
          (base32 "17hpgcwrsx2h8lrb2wwzy0anp33mn80dnwcgnqmb8prajwjvz807"))))
    (build-system haskell-build-system)
    (inputs (list ghc-network ghc-network-bsd ghc-safe-exceptions ghc-socks))
    (home-page "https://github.com/k0001/network-simple")
    (synopsis "Simple network sockets usage patterns.")
    (description
      "This module exports functions that abstract simple network socket usage patterns. . See the @changelog.md@ file in the source distribution to learn about any important changes between versions.")
    (license license:bsd-3)))

(define-public ghc-base58-bytestring
  (package
    (name "ghc-base58-bytestring")
    (version "0.1.0")
    (source
      (origin
        (method url-fetch)
        (uri (hackage-uri "base58-bytestring" version))
        (sha256
          (base32 "1ls05nzswjr6aw0wwk3q7cpv1hf0lw7vk16a5khm6l21yfcgbny2"))))
    (build-system haskell-build-system)
    (native-inputs
      (list ghc-quickcheck-assertions
            ghc-quickcheck-instances
            ghc-tasty
            ghc-tasty-quickcheck))
    (home-page "https://bitbucket.org/s9gf4ult/base58-bytestring")
    (synopsis "Implementation of BASE58 transcoding for ByteStrings")
    (description
      "Implementation of BASE58 transcoding copy-pasted from haskoin package")
    (license license:public-domain)))

(define-public ghc-network-protocol-xmpp
  (package
    (name "ghc-network-protocol-xmpp")
    (version "0.4.10")
    (source
      (origin
        (method url-fetch)
        (uri (string-append
               "https://hackage.haskell.org/package/network-protocol-xmpp/network-protocol-xmpp-"
               version
               ".tar.gz"))
        (sha256
          (base32 "03xlw8337lzwp7f5jvbvgirf546pfmfsfjvnik08qjjy1rfn5jji"))))
    (build-system haskell-build-system)
    (inputs
      `(("ghc-gnuidn" ,ghc-gnuidn)
        ("ghc-gnutls" ,ghc-gnutls)
        ("ghc-gsasl" ,ghc-gsasl)
        ("ghc-libxml-sax" ,ghc-libxml-sax)
        ("ghc-monads-tf" ,ghc-monads-tf)
        ("ghc-network" ,ghc-network)
        ("ghc-network-simple" ,ghc-network-simple)
        ("ghc-xml-types" ,ghc-xml-types)))
    (home-page "https://git.singpolyma.net/network-protocol-xmpp")
    (synopsis "Client library for the XMPP protocol.")
    (description "")
    (license license:gpl3)))

(define-public ghc-hstatsd
  (package
    (name "ghc-hstatsd")
    (version "0.1")
    (source
      (origin
        (method url-fetch)
        (uri (hackage-uri "hstatsd" version))
        (sha256
          (base32 "092q52yyb1xdji1y72bdcgvp8by2w1z9j717sl1gmh2p89cpjrs4"))))
    (build-system haskell-build-system)
    (arguments
     `(#:phases
       (modify-phases %standard-phases
         (add-after 'unpack 'fix-for-network-3
           (lambda _
             (substitute* "src/Network/StatsD.hs"
               (("sClose") "close"))
             #t)))))
    (inputs (list ghc-network))
    (home-page "https://github.com/mokus0/hstatsd")
    (synopsis "Quick and dirty statsd interface")
    (description "Quick and dirty statsd interface")
    (license license:public-domain)))

(define-public ghc-random-shuffle
  (package
    (name "ghc-random-shuffle")
    (version "0.0.4")
    (source
      (origin
        (method url-fetch)
        (uri (hackage-uri "random-shuffle" version))
        (sha256
          (base32 "0586bnlh0g2isc44jbjvafkcl4yw6lp1db8x6vr0pza0y08l8w2j"))))
    (build-system haskell-build-system)
    (inputs (list ghc-random ghc-monadrandom))
    (home-page "http://hackage.haskell.org/package/random-shuffle")
    (synopsis "Random shuffle implementation.")
    (description
      "Random shuffle implementation, on immutable lists. Based on `perfect shuffle' implementation by Oleg Kiselyov, available on http://okmij.org/ftp/Haskell/perfect-shuffle.txt")
    (license license:bsd-3)))

(define-public ghc-stm-delay
  (package
    (name "ghc-stm-delay")
    (version "0.1.1.1")
    (source
      (origin
        (method url-fetch)
        (uri (hackage-uri "stm-delay" version))
        (sha256
          (base32 "0cla21v89gcvmr1iwzibq13v1yq02xg4h6k9l6kcprj7mhd5hcmi"))))
    (build-system haskell-build-system)
    (home-page "https://github.com/joeyadams/haskell-stm-delay")
    (synopsis "Updatable one-shot timer polled with STM")
    (description
      "This library lets you create a one-shot timer, poll it using STM, and update it to ring at a different time than initially specified. . It uses GHC event manager timeouts when available (GHC 7.2+, @-threaded@, non-Windows OS), yielding performance similar to @threadDelay@ and @registerDelay@.  Otherwise, it falls back to forked threads and @threadDelay@. . [0.1.1] Add tryWaitDelayIO, improve performance for certain cases of @newDelay@ and @updateDelay@, and improve example.")
    (license license:bsd-3)))

(define-public ghc-hostandport
  (package
    (name "ghc-hostandport")
    (version "0.2.0")
    (source
      (origin
        (method url-fetch)
        (uri (hackage-uri "HostAndPort" version))
        (sha256
          (base32 "1rjv6c7j6fdy6gnn1zr5jnfmiqiamsmjfw9h3bx119giw3sjb9hm"))))
    (build-system haskell-build-system)
    (native-inputs
      (list ghc-hspec ghc-doctest))
    (home-page "https://github.com/bacher09/hostandport")
    (synopsis "Parser for host and port pairs like localhost:22")
    (description
      "Simple parser for parsing host and port pairs. Host can be either ipv4, ipv6 or domain name and port are optional. . IPv6 address should be surrounded by square brackets. . Examples: . * localhost . * localhost:8080 . * 127.0.0.1 . * 127.0.0.1:8080 . * [::1] . * [::1]:8080")
    (license license:expat)))

(define-public ghc-binary-varint
  (package
    (name "ghc-binary-varint")
    (version "0.1.0.0")
    (source
      (origin
        (method url-fetch)
        (uri (hackage-uri "binary-varint" version))
        (sha256
          (base32 "1i183ab4bbq3yarijnb2pwgbi9k1w1nc0fs6ph8d8xnysj6ws8l8"))))
    (build-system haskell-build-system)
    (home-page "https://github.com/oscoin/ipfs")
    (synopsis "VarInt encoding/decoding via Data.Binary")
    (description "")
    (license license:bsd-3)))

(define-public ghc-multihash-cryptonite
  (package
    (name "ghc-multihash-cryptonite")
    (version "0.1.0.0")
    (source
      (origin
        (method url-fetch)
        (uri (hackage-uri "multihash-cryptonite" version))
        (sha256
          (base32 "0gl13kjqz14lnwz7x162fad3j99qs1xa3zabpr30q53pkzk8adsi"))))
    (build-system haskell-build-system)
    (inputs (list ghc-binary-varint ghc-cryptonite ghc-hashable ghc-memory))
    (native-inputs (list ghc-hedgehog ghc-doctest ghc-cabal-doctest))
    (home-page "https://github.com/oscoin/ipfs")
    (synopsis
      "Self-identifying hashes, implementation of <https://github.com/multiformats/multihash>")
    (description "")
    (license license:bsd-3)))

(define-public ghc-cpu
  (package
    (name "ghc-cpu")
    (version "0.1.2")
    (source
      (origin
        (method url-fetch)
        (uri (hackage-uri "cpu" version))
        (sha256
          (base32 "0x19mlanmkg96h6h1i04w2i631z84y4rbk22ki4zhgsajysgw9sn"))))
    (build-system haskell-build-system)
    (home-page "http://github.com/vincenthz/hs-cpu")
    (synopsis "Cpu information and properties helpers.")
    (description
      "Lowlevel cpu routines to get basic properties of the cpu platform, like endianness and architecture.")
    (license license:bsd-3)))

(define-public ghc-base32-z-bytestring
  (package
    (name "ghc-base32-z-bytestring")
    (version "1.0.0.0")
    (source
      (origin
        (method url-fetch)
        (uri (hackage-uri "base32-z-bytestring" version))
        (sha256
          (base32 "1r0235a2qqnavsm7jl807m555yd2k2vi2kfacw878v83zdr5qyix"))))
    (build-system haskell-build-system)
    (arguments
     `(#:phases
       (modify-phases %standard-phases
         (add-after 'unpack 'fix-internal-reference
           (lambda _
             (substitute* "base32-z-bytestring.cabal"
               (("z-base32-bytestring") "base32-z-bytestring"))
             #t)))))
    (inputs (list ghc-cpu))
    (native-inputs
      (list ghc-hedgehog
            ghc-tasty
            ghc-tasty-fail-fast
            ghc-tasty-hedgehog
            ghc-tasty-hspec))
    (home-page "https://github.com/oscoin/z-base32-bytestring")
    (synopsis "Fast z-base32 and z-base32hex codec for ByteStrings")
    (description
      "base32 and base32hex codec according to RFC4648 <http://tools.ietf.org/html/rfc4648>, extended to support z-base32 encoding according to <https://gist.github.com/maaku/8996338#file-bip-ecc32-mediawiki> . The package API is similar to base64-bytestring.")
    (license license:bsd-3)))

(define-public ghc-formatting
  (package
    (name "ghc-formatting")
    (version "7.1.3")
    (source
      (origin
        (method url-fetch)
        (uri (hackage-uri "formatting" version))
        (sha256
          (base32 "1vrc2i1b6lxx2aq5hysfl3gl6miq2wbhxc384axvgrkqjbibnqc0"))))
    (build-system haskell-build-system)
    (inputs
      (list ghc-clock ghc-old-locale ghc-scientific ghc-double-conversion))
    (native-inputs (list ghc-hspec))
    (home-page "https://github.com/AJChapman/formatting#readme")
    (synopsis
      "Combinator-based type-safe formatting (like printf() or FORMAT)")
    (description
      "Combinator-based type-safe formatting (like printf() or FORMAT), modelled from the HoleyMonoids package. . See the README at <https://github.com/AJChapman/formatting#readme> for more info.")
    (license license:bsd-3)))

(define-public ghc-tasty-tap
  (package
    (name "ghc-tasty-tap")
    (version "0.1.0")
    (source
      (origin
        (method url-fetch)
        (uri (hackage-uri "tasty-tap" version))
        (sha256
          (base32 "16i7pd0xis1fyqgmsy4mq04y87ny61dh2lddnjijcf1s9jz9b6x8"))))
    (build-system haskell-build-system)
    (inputs (list ghc-tasty))
    (native-inputs (list ghc-tasty-hunit ghc-tasty-golden))
    (home-page "https://github.com/michaelxavier/tasty-tap")
    (synopsis "TAP (Test Anything Protocol) Version 13 formatter for tasty")
    (description "A tasty ingredient to output test results in TAP 13 format.")
    (license license:expat)))

(define-public ghc-tasty-fail-fast
  (package
    (name "ghc-tasty-fail-fast")
    (version "0.0.3")
    (source
     (origin
       (method git-fetch)
       (uri (git-reference
             (url "https://github.com/MichaelXavier/tasty-fail-fast")
             (commit "68d7f182f4d1f7b97a724c26f554e5da27fe9413")))
       (file-name (git-file-name name version))
       (sha256
         (base32 "05x4ly5sfj5fmjsxxrfys20qc6n078vwaxxzlk2l354l7kng5512"))))
    (build-system haskell-build-system)
    (inputs (list ghc-tasty ghc-tagged))
    (native-inputs (list ghc-tasty-hunit ghc-tasty-golden ghc-tasty-tap))
    (home-page "http://github.com/MichaelXavier/tasty-fail-fast#readme")
    (synopsis
      "Adds the ability to fail a tasty test suite on first test failure")
    (description
      "tasty-fail-fast wraps any ingredient to fail as soon as the first test fails. For example: . @ defaultMainWithIngredients (map failFast defaultIngredients) tests @ . Your test suite will now get a @--fail-fast@ flag.")
    (license license:bsd-3)))

(define-public ghc-multibase
  (package
    (name "ghc-multibase")
    (version "0.1.2")
    (source
      (origin
        (method url-fetch)
        (uri (hackage-uri "multibase" version))
        (sha256
          (base32 "036caj0dzhzp065dhy05flz2j5qml5pirs1y95np4hf2xv9jk32h"))))
    (build-system haskell-build-system)
    (inputs
      (list ghc-aeson
            ghc-base16-bytestring
            ghc-base32-z-bytestring
            ghc-base58-bytestring
            ghc-base64-bytestring
            ghc-formatting
            ghc-hashable
            ghc-sandi
            ghc-serialise
            ghc-tagged))
    (native-inputs (list ghc-doctest ghc-quickcheck ghc-cabal-doctest))
    (home-page "https://github.com/oscoin/ipfs")
    (synopsis
      "Self-identifying base encodings, implementation of <https://github.com/multiformats/multihash>")
    (description "")
    (license license:bsd-3)))

(define-public ghc-ipld-cid
  (package
    (name "ghc-ipld-cid")
    (version "0.1.0.0")
    (source
      (origin
        (method url-fetch)
        (uri (hackage-uri "ipld-cid" version))
        (sha256
          (base32 "1y08j0ibcrpfcm0zv1h17zdgbl3hm3sjvm0w9bk1lzdipd6p6cwj"))))
    (build-system haskell-build-system)
    (inputs
      (list ghc-binary-varint
            ghc-cryptonite
            ghc-hashable
            ghc-multibase
            ghc-multihash-cryptonite))
    (native-inputs (list ghc-hedgehog))
    (home-page "https://github.com/oscoin/ipfs")
    (synopsis "IPLD Content-IDentifiers <https://github.com/ipld/cid>")
    (description "")
    (license license:bsd-3)))

(define-public ghc-jingle
  (package
    (name "ghc-jingle")
    (version "4c93bbd")
    (source
     (origin
       (method git-fetch)
       (uri (git-reference
             (recursive? #t)
             (url "https://git.singpolyma.net/jingle-xmpp")
             (commit version)))
       (file-name (git-file-name name version))
       (sha256
         (base32 "09y3wbskv11dg5vcvgw5zlii0brijr0rd5m1s8r6ws5h53k53n7r"))))
    (build-system haskell-build-system)
    (inputs
      (list
        ghc-base64-bytestring
        ghc-basic-prelude
        ghc-cache
        ghc-clock
        ghc-cryptonite
        ghc-errors
        ghc-ipld-cid
        ghc-network
        ghc-network-protocol-xmpp
        ghc-multihash-cryptonite
        ghc-socks
        ghc-unexceptionalio))
    (home-page "https://github.com/bacher09/hostandport")
    (synopsis "Parser for host and port pairs like localhost:22")
    (description
      "Simple parser for parsing host and port pairs. Host can be either ipv4, ipv6 or domain name and port are optional. . IPv6 address should be surrounded by square brackets. . Examples: . * localhost . * localhost:8080 . * 127.0.0.1 . * 127.0.0.1:8080 . * [::1] . * [::1]:8080")
    (license license:expat)))

;;;;

(define %source-dir (dirname (current-filename)))
(define %git-dir (string-append %source-dir "/.git"))

; double-escaped template of the cheogram sexp
; This allows us to bake the expression without doing a full eval to a record,
; so it can be written
(define-public cheogram-template
  '(package
    (name "cheogram")
    (version (read-line (open-pipe* OPEN_READ "git" "--git-dir" %git-dir "describe" "--always" "--dirty")))
    (source
     `(origin
       (method git-fetch)
       (uri (git-reference
             (recursive? #t)
             (url "https://git.singpolyma.net/cheogram")
             (commit ,(read-line (open-pipe* OPEN_READ "git" "--git-dir" %git-dir "rev-parse" "HEAD")))))
       (file-name (git-file-name name version))
       (sha256
        (base32
         ,(read-line (open-pipe* OPEN_READ "guix" "hash" "-rx" %source-dir))))))
    (build-system haskell-build-system)
    (inputs
      '(list
        dhall
        ghc-attoparsec
        ghc-base58-bytestring
        ghc-base64-bytestring
        ghc-basic-prelude
        ghc-cache
        ghc-clock
        ghc-errors
        ghc-hedis
        ghc-hostandport
        ghc-hstatsd
        ghc-http
        ghc-http-streams
        ghc-http-types
        ghc-jingle
        ghc-mmorph
        ghc-monad-loops
        ghc-monads-tf
        ghc-network
        ghc-network-protocol-xmpp
        ghc-network-uri
        ghc-pcre-light
        ghc-random-shuffle
        ghc-safe
        ghc-sha
        ghc-stm-delay
        ghc-unexceptionalio-trans
        ghc-utility-ht
        ghc-uuid
        ghc-xml-types))
    (home-page "https://git.singpolyma.net/cheogram")
    (synopsis "")
    (description "")
    (license license:agpl3)))

; Baked version of jmp-pay-template with leaves eval'd
(define-public cheogram-baked
 (cons
  (car cheogram-template)
  (map
   (lambda (x) (list (car x) (eval (cadr x) (current-module))))
   (cdr cheogram-template))))

; Build clean from git the version from a local clone
; To build whatever is sitting in local use:
; guix build --with-source=$PWD -f guix.scm

(eval cheogram-baked (current-module))

A manifest.scm => manifest.scm +7 -0
@@ 0,0 1,7 @@
(define cheogram (load "./guix.scm"))

(concatenate-manifests
  (list
    (specifications->manifest
      '("hlint"))
    (package->development-manifest cheogram)))