From f83b424bf70b7b14b0268aeeafe1b3483fced49f Mon Sep 17 00:00:00 2001
From: Alexander Foremny <aforemny@posteo.de>
Date: Thu, 21 Mar 2024 05:35:00 +0100
Subject: chore: Git -> Backend

---
 app/Git/CommitHash.hs | 42 ------------------------------------------
 1 file changed, 42 deletions(-)
 delete mode 100644 app/Git/CommitHash.hs

(limited to 'app/Git/CommitHash.hs')

diff --git a/app/Git/CommitHash.hs b/app/Git/CommitHash.hs
deleted file mode 100644
index f791af8..0000000
--- a/app/Git/CommitHash.hs
+++ /dev/null
@@ -1,42 +0,0 @@
-module Git.CommitHash
-  ( CommitHash (..),
-    toShortText,
-    toText,
-    toTextUnsafe,
-  )
-where
-
-import Data.Binary (Binary)
-import Data.Maybe (fromMaybe)
-import Data.Text qualified as T
-import GHC.Generics (Generic)
-import Render qualified as P
-
-data CommitHash
-  = WorkingTree
-  | Commit T.Text
-  deriving (Eq, Ord, Show, Binary, Generic)
-
-toShortText :: CommitHash -> Maybe T.Text
-toShortText = fmap (T.take 7) . toText
-
-toText :: CommitHash -> Maybe T.Text
-toText WorkingTree = Nothing
-toText (Commit hash) = Just hash
-
-toTextUnsafe :: CommitHash -> T.Text
-toTextUnsafe (Commit hash) = hash
-toTextUnsafe _ = error "toTextUnsafe: WorkingDir"
-
-instance P.Render CommitHash where
-  render = P.render . P.Detailed
-
-instance P.Render (P.Detailed CommitHash) where
-  render (P.Detailed commitHash) =
-    P.styled [P.color P.Yellow] $
-      P.render (fromMaybe "<dirty>" (toText commitHash))
-
-instance P.Render (P.Summarized CommitHash) where
-  render (P.Summarized commitHash) =
-    P.styled [P.color P.Yellow] $
-      P.render (fromMaybe "<dirty>" (toShortText commitHash))
-- 
cgit v1.2.3