From 2d8b280ed2c73d65fb905a580e9499bb7f69ff01 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Mon, 14 Aug 2023 20:48:10 -0400
Subject: Run lint

Idk why these missed the linter. Probably packages updated in the
nixpkgs version bump.
---
 Biz/Bild/Bessel.c  |  8 ++++----
 Biz/Bild/Deps.hs   | 24 ++++++++++++------------
 Biz/Bild/Example.c |  4 ++--
 3 files changed, 18 insertions(+), 18 deletions(-)

(limited to 'Biz/Bild')

diff --git a/Biz/Bild/Bessel.c b/Biz/Bild/Bessel.c
index 524956c..52b4dee 100644
--- a/Biz/Bild/Bessel.c
+++ b/Biz/Bild/Bessel.c
@@ -7,13 +7,13 @@
 #include <libguile.h>
 
 SCM
-j0_wrapper(SCM x)
+j0_wrapper (SCM x)
 {
-  return scm_from_double(j0(scm_to_double(x)));
+  return scm_from_double (j0 (scm_to_double (x)));
 }
 
 void
-init_bessel()
+init_bessel ()
 {
-  scm_c_define_gsubr("j0", 1, 0, 0, j0_wrapper);
+  scm_c_define_gsubr ("j0", 1, 0, 0, j0_wrapper);
 }
diff --git a/Biz/Bild/Deps.hs b/Biz/Bild/Deps.hs
index 515d04c..17aae0d 100644
--- a/Biz/Bild/Deps.hs
+++ b/Biz/Bild/Deps.hs
@@ -45,7 +45,7 @@ instance MonadUnliftIO NIO where
   withRunInIO = wrappedWithRunInIO NIO runNIO
 
 getFindSourcesJson :: NIO FindSourcesJson
---getFindSourcesJson = ask
+-- getFindSourcesJson = ask
 getFindSourcesJson = do
   root <- li <| getEnv "BIZ_ROOT"
   pure <| AtPath <| root </> "Biz/Bild/Sources.json"
@@ -161,12 +161,12 @@ parseNixpkgs = parseNixpkgsFast <|> parseNixpkgsLatest <|> parseNixpkgsCustom <|
               <> Opts.help "Use a custom nixpkgs repository from GitHub."
               <> Opts.metavar "OWNER/REPO"
           )
-          <*> Opts.strOption
-            ( Opts.long "nixpkgs-branch"
-                <> Opts.short 'b'
-                <> Opts.help "The nixpkgs branch when using --nixpkgs ...."
-                <> Opts.showDefault
-            )
+        <*> Opts.strOption
+          ( Opts.long "nixpkgs-branch"
+              <> Opts.short 'b'
+              <> Opts.help "The nixpkgs branch when using --nixpkgs ...."
+              <> Opts.showDefault
+          )
     parseNoNixpkgs =
       Opts.flag'
         NoNixpkgs
@@ -684,8 +684,8 @@ abortUpdateFailed errs =
   abort
     <| T.unlines
     <| ["One or more packages failed to update:"]
-    <> map
-      ( \(PackageName pname, e) ->
-          pname <> ": " <> tshow e
-      )
-      errs
+      <> map
+        ( \(PackageName pname, e) ->
+            pname <> ": " <> tshow e
+        )
+        errs
diff --git a/Biz/Bild/Example.c b/Biz/Bild/Example.c
index 06e6ed8..9966dba 100644
--- a/Biz/Bild/Example.c
+++ b/Biz/Bild/Example.c
@@ -1,6 +1,6 @@
 // : out helloworld.exe
 void
-main()
+main ()
 {
-  printf("Biz/Bild/Example.c: Hello world!\n");
+  printf ("Biz/Bild/Example.c: Hello world!\n");
 }
-- 
cgit v1.2.3