Subject: [bug#38423] [PATCH 04/49] gnu: Add ghc-text-short.

From: Robert Vollmert <[email-masked]>
Date: Fri, 29 Nov 2019 12:37:06 +0100

* gnu/packages/haskell-xyz.scm (ghc-text-short): New package.
---
 gnu/packages/haskell-xyz.scm | 41 ++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)

diff --git a/gnu/packages/haskell-xyz.scm b/gnu/packages/haskell-xyz.scm
index 350af5b0c0..708159adc6 100644
--- a/gnu/packages/haskell-xyz.scm
+++ b/gnu/packages/haskell-xyz.scm
@@ -13240,3 +13240,44 @@ data types.")
     (synopsis "An efficient strict text builder")
     (description "")
     (license license:expat)))
+
+(define-public ghc-text-short
+  (package
+    (name "ghc-text-short")
+    (version "0.1.2")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append
+             "https://hackage.haskell.org/package/text-short/text-short-"
+             version
+             ".tar.gz"))
+       (sha256
+        (base32
+         "0rqiwgjkgyfy8596swl0s0x2jqk6ddh2h02qxa32az2cs5kviwmk"))))
+    (build-system haskell-build-system)
+    (inputs `(("ghc-hashable" ,ghc-hashable)))
+    (native-inputs
+     `(("ghc-tasty" ,ghc-tasty)
+       ("ghc-tasty-quickcheck" ,ghc-tasty-quickcheck)
+       ("ghc-tasty-hunit" ,ghc-tasty-hunit)
+       ("ghc-quickcheck-instances"
+        ,ghc-quickcheck-instances)))
+    (arguments
+     `(#:cabal-revision
+       ("2"
+        "106p7c0399zxdlh9f9qkgy7g2gp3bxqdpy6m6lnfhzi0pm5y8mks")))
+    (home-page
+     "http://hackage.haskell.org/package/text-short")
+    (synopsis
+     "Memory-efficient representation of Unicode text strings")
+    (description
+     "This package provides the 'ShortText' type which is
+suitable for keeping many short strings in memory.
+This is similiar to how 'ShortByteString' relates to 'ByteString'.
+The main difference between 'Text' and 'ShortText' is that 'ShortText'
+uses UTF-8 instead of UTF-16 internally and also doesn't support
+zero-copy slicing (thereby saving 2 words).  Consequently, the
+memory footprint of a (boxed) 'ShortText' value is 4 words
+(2 words when unboxed) plus the length of the UTF-8 encoded payload.")
+    (license license:bsd-3)))
-- 
2.21.0 (Apple Git-122.2)