@@ -108,8 +108,8 @@ gitDirty :: ExpQ
108gitDirty = do
108gitDirty = do
109 output <- runGit ["status", "--porcelain"] "" IdxUsed
109 output <- runGit ["status", "--porcelain"] "" IdxUsed
110 case output of
110 case output of
111− "" -> conE $ mkName "Prelude.False"
111+ "" -> conE falseName
112− _ -> conE $ mkName "Prelude.True"
112+ _ -> conE trueName
114-- | Return the number of commits in the current head
114-- | Return the number of commits in the current head
115gitCommitCount :: ExpQ
115gitCommitCount :: ExpQ