From 22a4ef450ce1fd2bfd81c73ffcb808119761bc2d Mon Sep 17 00:00:00 2001
From: voidlizard <dzuikov@gmail.com>
Date: Sun, 19 Jan 2025 23:56:56 +0300
Subject: [PATCH] wip, bugfix

---
 hbs2-git3/lib/HBS2/Git3/Prelude.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/hbs2-git3/lib/HBS2/Git3/Prelude.hs b/hbs2-git3/lib/HBS2/Git3/Prelude.hs
index 664d0320..0f0703a1 100644
--- a/hbs2-git3/lib/HBS2/Git3/Prelude.hs
+++ b/hbs2-git3/lib/HBS2/Git3/Prelude.hs
@@ -128,8 +128,8 @@ quit = liftIO Q.exitSuccess
 pattern GitHashLike:: forall {c} . GitHash -> Syntax c
 pattern GitHashLike x <- (
   \case
-    StringLike s  -> fromStringMay @GitHash s
     LitIntVal 0   -> Just $ GitHash (BS.replicate 20 0)
+    StringLike s  -> fromStringMay @GitHash s
     _             -> Nothing
       -> Just x )