voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

wip, bugfix

This commit is contained in:
voidlizard 2025-01-19 23:56:56 +03:00
parent dbd4b81ca7
commit 22a4ef450c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hbs2-git3/lib/HBS2/Git3/Prelude.hs
View File

@ -128,8 +128,8 @@ quit = liftIO Q.exitSuccess
pattern GitHashLike:: forall {c} . GitHash -> Syntax c pattern GitHashLike:: forall {c} . GitHash -> Syntax c
pattern GitHashLike x <- ( pattern GitHashLike x <- (
\case \case
StringLike s -> fromStringMay @GitHash s
LitIntVal 0 -> Just $ GitHash (BS.replicate 20 0) LitIntVal 0 -> Just $ GitHash (BS.replicate 20 0)
StringLike s -> fromStringMay @GitHash s
_ -> Nothing _ -> Nothing
-> Just x ) -> Just x )