From 9970bf9f6a5e8a9f75f4b4127b72e8ee9a660324 Mon Sep 17 00:00:00 2001
From: Efraim Flashner <efraim@flashner.co.il>
Date: Mon, 13 Dec 2021 11:40:02 +0200
Subject: [PATCH] dfsg-main: duperemove already in guix

---
 dfsg/main/duperemover.scm | 62 ---------------------------------------
 1 file changed, 62 deletions(-)
 delete mode 100644 dfsg/main/duperemover.scm

diff --git a/dfsg/main/duperemover.scm b/dfsg/main/duperemover.scm
deleted file mode 100644
index bc8d1a2..0000000
--- a/dfsg/main/duperemover.scm
+++ /dev/null
@@ -1,62 +0,0 @@
-;;; Copyright © 2021 Efraim Flashner <efraim@flashner.co.il>
-;;;
-;;; This file is an addendum to GNU Guix.
-;;;
-;;; GNU Guix is free software; you can redistribute it and/or modify it
-;;; under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 3 of the License, or (at
-;;; your option) any later version.
-;;;
-;;; GNU Guix is distributed in the hope that it will be useful, but
-;;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
-
-(define-module (dfsg main duperemover)
-  #:use-module ((guix licenses) #:prefix license:)
-  #:use-module (guix git-download)
-  #:use-module (guix packages)
-  #:use-module (guix utils)
-  #:use-module (guix build-system gnu)
-  #:use-module (gnu packages glib)
-  #:use-module (gnu packages pkg-config)
-  #:use-module (gnu packages sqlite))
-
-(define-public duperemover
-  (package
-    (name "duperemover")
-    (version "0.11.3")
-    (source
-      (origin
-        (method git-fetch)
-        (uri (git-reference
-               (url "https://github.com/markfasheh/duperemove")
-               (commit (string-append "v" version))))
-        (file-name (git-file-name name version))
-        (sha256
-         (base32 "0jwxmhadv2f1mx7gan4gk0xwrjr5g2xa71z1rp0knc1acbkhqdas"))))
-    (build-system gnu-build-system)
-    (arguments
-     `(#:make-flags (list (string-append "CC=" ,(cc-for-target))
-                          (string-append "PREFIX=" (assoc-ref %outputs "out")))
-       #:tests? #f
-       #:phases
-       (modify-phases %standard-phases
-         (delete 'configure))))     ; No configure phase.
-    (native-inputs
-     `(("pkg-config" ,pkg-config)))
-    (inputs
-     `(("glib" ,glib)
-       ("sqlite" ,sqlite)))
-    (home-page "https://markfasheh.github.io/duperemove/")
-    (synopsis "Tools for deduping file systems")
-    (description "Duperemove is a simple tool for finding duplicated extents
-and submitting them for deduplication.  When given a list of files it will hash
-their contents on a block by block basis and compare those hashes to each other,
-finding and categorizing extents that match each other.  When given the
-@code{-d} option, duperemove will submit those extents for deduplication using
-the Linux kernel extent-same ioctl.")
-    (license license:gpl2)))