chore: Git -> Backend

1 files changed, 0 insertions, 42 deletions

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))