use guix style on *.scm

glicid/packages/networking.scm

@@ -1,93 +1,88 @@
 (define-module (glicid packages networking)
-  #:use-module ((gnu packages networking) #:prefix gnu:)
+  #:use-module ((gnu packages networking)
+                #:prefix gnu:)
   #:use-module (guix build-system gnu)
   #:use-module (guix download)
-  #:use-module ((guix licenses) #:prefix license:)
-  #:use-module (guix packages)
-)
+  #:use-module ((guix licenses)
+                #:prefix license:)
+  #:use-module (guix packages))
 
 (define-public libecap
   (package
     (name "libecap")
     (version "1.0.0")
-    (source
-      (origin
-        (method url-fetch)
-        (uri (string-append "https://www.e-cap.org/archive/libecap-" version ".tar.gz"))
-        (sha256 (base32 "1gn44230z3n5vbwf1lb8ninjmhngc96criy6vc1qj8adw19bpiv4"))
-      )
-    )
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "https://www.e-cap.org/archive/libecap-"
+                                  version ".tar.gz"))
+              (sha256
+               (base32
+                "1gn44230z3n5vbwf1lb8ninjmhngc96criy6vc1qj8adw19bpiv4"))))
     (build-system gnu-build-system)
-    (synopsis "eCAP is a software interface that allows a network application, such as an HTTP proxy or an ICAP server, to outsource content analysis and adaptation to a loadable module.")
-    (description "eCAP is a software interface that allows a network application, such as an HTTP proxy or an ICAP server, to outsource content analysis and adaptation to a loadable module.")
+    (synopsis
+     "eCAP is a software interface that allows a network application, such as an HTTP proxy or an ICAP server, to outsource content analysis and adaptation to a loadable module.")
+    (description
+     "eCAP is a software interface that allows a network application, such as an HTTP proxy or an ICAP server, to outsource content analysis and adaptation to a loadable module.")
     (home-page "https://www.e-cap.org/")
-    (license license:gpl3+)
-  )
-)
+    (license license:gpl3+)))
 
 (define-public squid
   (package
     (inherit gnu:squid)
     (name "squid")
     (version "5.7")
-    (source
-      (origin
-        (method url-fetch)
-        (uri (string-append "http://www.squid-cache.org/Versions/v5/squid-" version ".tar.xz"))
-        (sha256 (base32 "10fdgrdiycphs8ciyn1q5p6dcyngmr614rry6gylx72cpam561vb"))
-      )
-    )
-    (inputs
-     `(("libecap", libecap)
-       ,@(package-inputs gnu:squid)))
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "http://www.squid-cache.org/Versions/v5/squid-" version
+                    ".tar.xz"))
+              (sha256
+               (base32
+                "10fdgrdiycphs8ciyn1q5p6dcyngmr614rry6gylx72cpam561vb"))))
+    (inputs `(("libecap" ,libecap)
+              ,@(package-inputs gnu:squid)))
     (arguments
-      '(
-        #:configure-flags (list
-        "--disable-arch-native" "--enable-icmp" "--enable-delay-pools" "--enable-ecap" "--enable-follow-x-forwarded-for"
-        "--enable-auth" "--enable-auth-basic" "--enable-auth-negotiate" "--enable-auth-ntlm"
-        "--enable-log-daemon-helpers"
-        )
-        #:phases
-       (modify-phases %standard-phases
-         (add-before 'build 'fix-true-path
-           (lambda* (#:key inputs #:allow-other-keys)
-             (substitute* "test-suite/testheaders.sh"
-               (("/bin/true") (search-input-file inputs "/bin/true"))
-              )
-            )
-          )
-        )
-      )
-    )
-  )
-)
+     '(#:configure-flags (list "--disable-arch-native"
+                               "--enable-icmp"
+                               "--enable-delay-pools"
+                               "--enable-ecap"
+                               "--enable-follow-x-forwarded-for"
+                               "--enable-auth"
+                               "--enable-auth-basic"
+                               "--enable-auth-negotiate"
+                               "--enable-auth-ntlm"
+                               "--enable-log-daemon-helpers")
+       #:phases (modify-phases %standard-phases
+                  (add-before 'build 'fix-true-path
+                    (lambda* (#:key inputs #:allow-other-keys)
+                      (substitute* "test-suite/testheaders.sh"
+                        (("/bin/true")
+                         (search-input-file inputs "/bin/true"))))))))))
 
 (define-public squid-5.5
   (package
     (inherit squid)
     (name "squid")
     (version "5.5")
-    (source
-      (origin
-        (method url-fetch)
-        (uri (string-append "http://www.squid-cache.org/Versions/v5/squid-" version ".tar.xz"))
-        (sha256 (base32 "0v0h949l4wd1hl87a8wkk1fkvj8j44wifyxi9myxdgbnci6lh7af"))
-      )
-    )
-  )
-)
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "http://www.squid-cache.org/Versions/v5/squid-" version
+                    ".tar.xz"))
+              (sha256
+               (base32
+                "0v0h949l4wd1hl87a8wkk1fkvj8j44wifyxi9myxdgbnci6lh7af"))))))
 
 (define-public openvswitch-2.17
   (package
     (inherit gnu:openvswitch)
     (name "openvswitch")
     (version "2.17.2")
-    (source
-      (origin
-        (method url-fetch)
-        (uri (string-append "https://www.openvswitch.org/releases/openvswitch-" version ".tar.gz"))
-        (sha256 (base32 "0sada2a9x9x7x6a45l7iklqh29wsbrdvvgpkyz5cpf5d5fs0sbka"))
-      )
-    )
-  )
-)
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "https://www.openvswitch.org/releases/openvswitch-"
+                    version ".tar.gz"))
+              (sha256
+               (base32
+                "0sada2a9x9x7x6a45l7iklqh29wsbrdvvgpkyz5cpf5d5fs0sbka"))))))