feat: implement client_credentials auth

Author: japiirainen

.envrc

@@ -0,0 +1,3 @@
+use flake .
+
+export $(xargs <.env)

.gitattributes

@@ -0,0 +1 @@
+flake.lock linguist-generated=true

.github/workflows/ci.yaml

@@ -0,0 +1,19 @@
+name: "CI"
+on:
+  push:
+    branches:
+      - main
+  pull_request:
+jobs:
+  build:
+    runs-on: ubuntu-latest
+    steps:
+      - uses: actions/checkout@v3
+      - name: Install Nix
+        uses: DeterminateSystems/nix-installer-action@main
+      - uses: cachix/cachix-action@v12
+        with:
+          name: srid
+      - name: Build 🔨
+        run: nix run github:srid/nixci
+

.github/workflows/update-flake-lock.yaml

@@ -0,0 +1,21 @@
+name: update-flake-lock
+on:
+  workflow_dispatch: # allows manual triggering
+  schedule:
+    - cron: '0 0 * * 0' # runs weekly on Sunday at 00:00
+
+jobs:
+  lockfile:
+    runs-on: ubuntu-latest
+    steps:
+      - name: Checkout repository
+        uses: actions/checkout@v3
+      - name: Install Nix
+        uses: DeterminateSystems/nix-installer-action@main
+      - name: Update flake.lock
+        uses: DeterminateSystems/update-flake-lock@v14
+        with:
+          token: ${{ secrets.GH_TOKEN_FOR_UPDATES }}
+          pr-title: "Update flake.lock" # Title of PR to be created
+          pr-labels: |                  # Labels to be set on the PR
+            automated

.gitignore

@@ -0,0 +1,15 @@
+# cabal
+dist
+dist-*
+cabal.project.local
+cabal.project.local~
+
+# nix
+result
+result-*
+
+# direnv
+.direnv
+
+# .env
+.env

LICENSE

@@ -0,0 +1,21 @@
+MIT License
+
+Copyright (c) 2022 Joona Piirainen
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.

flake.lock

@@ -0,0 +1,68 @@
+{
+  description = "A simple CLI for interacting with spotify.";
+
+  inputs = {
+    nixpkgs.url = "github:nixos/nixpkgs/nixpkgs-unstable";
+    systems.url = "github:nix-systems/default";
+    flake-parts.url = "github:hercules-ci/flake-parts";
+    haskell-flake.url = "github:srid/haskell-flake";
+    treefmt-nix.url = "github:numtide/treefmt-nix";
+    treefmt-nix.inputs.nixpkgs.follows = "nixpkgs";
+  };
+
+  outputs = inputs:
+    inputs.flake-parts.lib.mkFlake { inherit inputs; } {
+      systems = import inputs.systems;
+      imports = [
+        inputs.haskell-flake.flakeModule
+        inputs.treefmt-nix.flakeModule
+      ];
+      perSystem = { self', config, pkgs, ... }: {
+        haskellProjects.default = {
+
+          packages = { };
+
+          settings = { };
+
+          devShell = {
+            hlsCheck.enable = false;
+          };
+
+          autoWire = [ "packages" "apps" "checks" ];
+        };
+
+        treefmt.config = {
+          projectRootFile = "flake.nix";
+
+          programs.ormolu.enable = true;
+          programs.nixpkgs-fmt.enable = true;
+          programs.cabal-fmt.enable = true;
+          programs.hlint.enable = true;
+
+          programs.ormolu.package = pkgs.haskellPackages.fourmolu;
+          settings.formatter.ormolu = {
+            options = [
+              "--ghc-opt"
+              "-XImportQualifiedPost"
+            ];
+          };
+        };
+
+        packages.default = self'.packages.spotify;
+        apps.default = self'.apps.spotify;
+
+        devShells.default = pkgs.mkShell {
+          name = "spotify";
+          inputsFrom = [
+            config.haskellProjects.default.outputs.devShell
+            config.treefmt.build.devShell
+          ];
+          nativeBuildInputs = with pkgs; [
+            just
+            zlib
+            icu
+          ];
+        };
+      };
+    };
+}

flake.nix

@@ -0,0 +1,8 @@
+indentation: 2
+comma-style: leading
+record-brace-space: true 
+indent-wheres: true
+diff-friendly-import-export: true 
+respectful: true 
+haddock-style: multi-line 
+newlines-between-decls: 1

fourmolu.yaml

@@ -0,0 +1,2 @@
+cradle:
+  cabal:

hie.yaml

@@ -0,0 +1,19 @@
+default:
+    @just --list
+
+# Run hoogle
+docs:
+    echo http://127.0.0.1:8888
+    hoogle serve -p 8888 --local
+
+# Run cabal repl
+repl *ARGS:
+    cabal repl {{ARGS}}
+
+# Autoformat the project tree
+fmt:
+    treefmt
+
+# Run ghcid -- auto-recompile and run `main` function
+run:
+    ghcid -c "cabal repl exe:haskell-template" --warnings -T :main

justfile

@@ -0,0 +1,37 @@
+module Spotify (main) where
+
+import Effectful (Eff, runEff, (:>))
+import Effectful.Error.Static (runError)
+import Effectful.Reader.Static (runReader)
+
+import Spotify.AppEnv
+import Spotify.Config
+import Spotify.Effect.FileSystem
+import Spotify.Effect.Spotify
+
+prog :: (Config :> es, SpotifyAPI :> es) => Eff es TokenResponse
+prog = do
+  c <- readConfig
+  let auth = Just $ TokenAuthorization (userClientId c) (userClientSecret c)
+  let tokReq =
+        TokenRequest
+          { grant_type = ClientCredentials
+          , code = Nothing
+          , redirectUri = Nothing
+          , refreshToken = Nothing
+          }
+  makeTokenRequest auth tokReq
+
+main :: IO ()
+main = do
+  env <- AppEnv <$> accountsEnv <*> mainEnv
+  res <-
+    runEff
+      . runError @SpotifyAPIError
+      . runError @FsError
+      . runReader @AppEnv env
+      . runFileSystemIO
+      . runSpotifyServant
+      . runConfigIO
+      $ prog
+  print res

lib/Spotify.hs

@@ -0,0 +1,8 @@
+module Spotify.AppEnv (AppEnv (..)) where
+
+import Servant.Client (ClientEnv)
+
+data AppEnv = AppEnv
+  { accountsApiEnv :: ClientEnv
+  , mainApiEnv :: ClientEnv
+  }

lib/Spotify/AppEnv.hs

@@ -0,0 +1,32 @@
+{-# LANGUAGE TemplateHaskell #-}
+
+module Spotify.Config (
+  Config (..),
+  UserConfig (..),
+  readConfig,
+  runConfigIO,
+) where
+
+import Dhall
+import Effectful
+import Effectful.Dispatch.Dynamic
+import Effectful.TH
+
+import Spotify.Effect.FileSystem
+
+data UserConfig = UserConfig
+  { userClientId :: Text
+  , userClientSecret :: Text
+  }
+  deriving stock (Generic, Show)
+
+instance FromDhall UserConfig
+
+data Config :: Effect where
+  ReadConfig :: Config m UserConfig
+
+makeEffect ''Config
+
+runConfigIO :: (IOE :> es, FileSystem :> es) => Eff (Config : es) a -> Eff es a
+runConfigIO = interpret $ \_ -> \case
+  ReadConfig -> readConfigFile "Spotify.dhall" >>= \c -> liftIO (input auto c)