Use more reliable names for True and False constructor expressions #1
commit74b2e3da90148b91695ca3ed20a3cbb2593d39ea
authorDan Burton <danburton.email@gmail.com>
dateSun 26 Apr 2015, 17:45 (11 years ago)
parent2702e69
src/Development/GitRev.hs+2−2
@@ -101,5 +101,5 @@ gitDirty :: ExpQ
101101gitDirty = 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