corpus

Log | Files | Refs | README | LICENSE

commit 82bbb061aa0d3d4e001b1727268660f91134d29d
parent e5874bd0fa98e4abbe9ae346ae16a013b994a15c
Author: mtmn <miro@haravara.org>
Date:   Wed, 22 Apr 2026 23:50:53 +0200

fix: remove unused imports

Diffstat:
Msrc/Cover.purs | 9+++------
Msrc/Main.purs | 12+++---------
2 files changed, 6 insertions(+), 15 deletions(-)

diff --git a/src/Cover.purs b/src/Cover.purs @@ -9,9 +9,8 @@ module Cover import Prelude -import Config (S3Config, UserConfig, s3ConfigFromUser) +import Config (UserConfig, s3ConfigFromUser) import S3 (existsInS3, getS3Url, uploadToS3) -import Control.Monad.Error.Class (throwError) import Data.Array ((!!)) import Data.Either (Either(..)) import Data.Foldable (foldM) @@ -21,7 +20,7 @@ import Data.String.CaseInsensitive (CaseInsensitiveString(..)) import Data.String.Regex (replace, parseFlags) import Data.String.Regex.Unsafe (unsafeRegex) import Effect (Effect) -import Effect.Aff (Aff, forkAff, launchAff_, try) +import Effect.Aff (Aff, forkAff, try) import Effect.Class (liftEffect) import Effect.Exception as Exception import Fetch (fetch, Method(GET)) @@ -32,12 +31,10 @@ import Image (convertToAvif) import JSURI (encodeURIComponent) import Log as Log import Metrics as Metrics -import Node.Buffer (fromArrayBuffer) import Node.HTTP.OutgoingMessage (setHeader, toWriteable) import Node.HTTP.ServerResponse (setStatusCode, toOutgoingMessage) import Node.HTTP.Types (ServerResponse) -import Node.Stream (end, write) -import S3 (existsInS3, getS3Url, uploadToS3) +import Node.Stream (end) import Unsafe.Coerce (unsafeCoerce) import Web.URL (URL) import Web.URL as URL diff --git a/src/Main.purs b/src/Main.purs @@ -3,22 +3,20 @@ module Main where import Prelude import Config (AppConfig, UserConfig, UserEntry, loadConfig, s3ConfigFromUser) -import Control.Monad.Rec.Class (forever) import Cover (serveCover) import Cosine (serveSimilar) import Data.Array (find, length) import Data.Either (Either(..)) -import Data.Foldable (for_, traverse_) +import Data.Foldable (for_) import Data.Int (fromString, toNumber) import Data.Maybe (Maybe(..), fromMaybe) import Data.String (Pattern(..), stripPrefix) import Data.String.Regex (replace, parseFlags) import Data.String.Regex.Unsafe (unsafeRegex) import Data.Traversable (traverse) -import Data.Tuple (Tuple(..)) -import Db (Connection, FilterField(..), backupDb, connect, getScrobbles, getStats, initDb, initReleaseMetadata, ping, withTransaction) +import Db (Connection, FilterField(..), backupDb, connect, getScrobbles, getStats, initDb, initReleaseMetadata, ping) import Effect (Effect) -import Effect.Aff (Aff, launchAff_, try, delay, forkAff, joinFiber, killFiber, Fiber) +import Effect.Aff (Aff, Fiber, forkAff, joinFiber, killFiber, launchAff_, try) import Effect.Aff.AVar (AVar) import Effect.Aff.AVar as Avar import Effect.Class (liftEffect) @@ -39,11 +37,7 @@ import Node.Net.Server (listenTcp, listeningH) import Node.Process (lookupEnv) import Node.Stream (end, write, writeString) import Data.Argonaut (encodeJson, stringify) -import Data.Argonaut.Core (toObject, toArray, toString, Json) -import Foreign.Object as Object import Sync (lbSync, lbSyncLoop, lfSync, lfSyncLoop) -import Types (Listen(..), ListenBrainzResponse(..), Payload(..), TrackMetadata(..)) -import Unsafe.Coerce (unsafeCoerce) import Web.URL (URL) import Web.URL as URL import Web.URL.URLSearchParams as URLSearchParams