re-add snappy 1.1.8

gnu/packages/glicid.scm

@@ -1188,29 +1188,32 @@ in the @code{debug} output), and binutils.")))
 
 
 
-
-(use-modules (guix inferior) (guix channels)
-             (srfi srfi-1))   ;pour « first »
-
-
-(define channels
-  ;; L'ancienne révision depuis laquelle on veut
-  ;; extraire guile-json.
-  (list (channel
-         (name 'guix)
-         (url "https://git.savannah.gnu.org/git/guix.git")
-         (commit
-          "c9c274172b781c51e67868c53c8b2ea394bf7a94")))) ; just before snappy 1.19
-
-
-(define inferior
-  ;; Un inférieur représentant la révision ci-dessus.
-  (inferior-for-channels channels))
-
-(define-public old-snappy
- (first (lookup-inferior-packages inferior "snappy")
- )
-)
+(define-public snappy
+  (package
+    (name "snappy")
+    (version "1.1.8")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+              (url "https://github.com/google/snappy")
+              (commit version)))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32 "1j0kslq2dvxgkcxl1gakhvsa731yrcvcaipcp5k8k7ayicvkv9jv"))
+       (patches (search-patches "snappy-add-O2-flag-in-CmakeLists.txt.patch"))))
+    (build-system cmake-build-system)
+    (arguments
+     `(#:configure-flags '("-DBUILD_SHARED_LIBS=ON")))
+    (home-page "https://github.com/google/snappy")
+    (synopsis "Fast compressor/decompressor")
+    (description "Snappy is a compression/decompression library.  It does not
+aim for maximum compression, or compatibility with any other compression library;
+instead, it aims for very high speeds and reasonable compression.  For instance,
+compared to the fastest mode of zlib, Snappy is an order of magnitude faster
+for most inputs, but the resulting compressed files are anywhere from 20% to
+100% bigger.")
+    (license license:asl2.0)))
 
 
 (define-public glicid-ceph
@@ -1219,7 +1222,7 @@ in the @code{debug} output), and binutils.")))
   (name "glicid-ceph")
 
 
-   (inputs `(("snappy",old-snappy)
+   (inputs `(("snappy",snappy@1.1.8)
       ,@(package-inputs ceph)))
 
  )