Permalink
Browse files

Made a couple changes to fix Windows support.

  • Loading branch information...
1 parent c78013a commit 84fca9884d102713170eb2b77b485d433b2cc8ac @willdonnelly committed Dec 31, 2010
Showing with 1 addition and 4 deletions.
  1. +0 −4 Config/Dyre.hs
  2. +1 −0 Config/Dyre/Paths.hs
View
@@ -185,9 +185,5 @@ wrapMain params@Params{projectName = pName} cfg = withDyreOptions params $
let mainConfig = case errorData of
Nothing -> cfg
Just ed -> showError params cfg ed
- -- Remove the error file if it exists
- errorFile <- getErrorPath params
- errorExists <- doesFileExist errorFile
- when errorExists $ removeFile errorFile
-- Enter the main program
realMain params mainConfig
View
@@ -26,6 +26,7 @@ getPaths params@Params{projectName = pName} = do
(False, Nothing) -> getUserConfigDir pName
(False, Just cd) -> cd
let tempBinary = cacheDir </> pName ++ "-" ++ os ++ "-" ++ arch
+ <.> takeExtension thisBinary
let configFile = configDir </> pName ++ ".hs"
return (thisBinary, tempBinary, configFile, cacheDir)

0 comments on commit 84fca98

Please sign in to comment.