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 )