From 7868cc248e01a36827338d8fca6b57f8999a1ba1 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Tue, 7 Dec 2021 14:22:18 -0500
Subject: Add simple API key feature to Dragons.dev
Still need to add this to the CLI, and there should be other features like
delete and so on, but this works for now.
---
Biz/Dragons/Analysis.hs | 4 ++++
1 file changed, 4 insertions(+)
(limited to 'Biz/Dragons/Analysis.hs')
diff --git a/Biz/Dragons/Analysis.hs b/Biz/Dragons/Analysis.hs
index f1c1bbd..cfdbf2c 100644
--- a/Biz/Dragons/Analysis.hs
+++ b/Biz/Dragons/Analysis.hs
@@ -77,6 +77,8 @@ newtype Commit = Sha Text
instance Aeson.ToJSON Commit
+instance Aeson.FromJSON Commit
+
-- | The result of analyzing a git repo.
data Analysis = Analysis
{ -- | Where the repo is stored on the local disk.
@@ -105,6 +107,8 @@ data Analysis = Analysis
instance Aeson.ToJSON Analysis
+instance Aeson.FromJSON Analysis
+
run :: [Text] -> FilePath -> IO Analysis
run activeAuthors bareRepo = do
commit <- git bareRepo ["rev-parse", "HEAD"] /> Text.pack /> chomp /> Sha
--
cgit v1.2.3