From 7868cc248e01a36827338d8fca6b57f8999a1ba1 Mon Sep 17 00:00:00 2001 From: Ben Sima 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') 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