@@ -101,5 +101,5 @@ gitDirty :: ExpQ
101gitDirty = do
101gitDirty = do
102 output <- runGit ["status", "--porcelain"] ""
102 output <- runGit ["status", "--porcelain"] ""
103 case output of
103 case output of
104− "" -> conE $ mkName "Prelude.False"
104+ "" -> conE falseName
105− _ -> conE $ mkName "Prelude.True"
105+ _ -> conE trueName