Skip to content

Commit 74b2e3d

Browse files
committed
Use more reliable names for True and False constructor expressions acfoltzer#1
1 parent 2702e69 commit 74b2e3d

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

src/Development/GitRev.hs

+2-2
Original file line numberDiff line numberDiff line change
@@ -101,5 +101,5 @@ gitDirty :: ExpQ
101101
gitDirty = do
102102
output <- runGit ["status", "--porcelain"] ""
103103
case output of
104-
"" -> conE $ mkName "Prelude.False"
105-
_ -> conE $ mkName "Prelude.True"
104+
"" -> conE falseName
105+
_ -> conE trueName

0 commit comments

Comments
 (0)