@@ -10,6 +10,7 @@ import Control.Exception (throwIO)
10import qualified Codec.Archive.Tar as Tar
10import qualified Codec.Archive.Tar as Tar
11import qualified Data.ByteString.Lazy as L
11import qualified Data.ByteString.Lazy as L
12import Control.Arrow (second)
12import Control.Arrow (second)
13+import Control.Monad (unless)
13import Distribution.Text (display)
14import Distribution.Text (display)
14import System.Directory (doesFileExist)
15import System.Directory (doesFileExist)
15import System.FilePath ((</>), (<.>))
16import System.FilePath ((</>), (<.>))
@@ -47,6 +48,12 @@ createHackageFile isInc ii ghcVer date hackageH tarballH = do
47 , filter (/= '.') ghcVer
48 , filter (/= '.') ghcVer
48 , if isInc then "-inclusive" else "-exclusive"
49 , if isInc then "-inclusive" else "-exclusive"
53+ -- Add in some OS-specific package/version combos to work with
54+ -- non-Linux systems.
55+ hPutStrLn hackageH "hfsevents-0.1.5"
56+ hPutStrLn hackageH "Win32-notify-0.3"
51 selected = Map.fromList . map toStrs . Map.toList $
58 selected = Map.fromList . map toStrs . Map.toList $
52 fmap spiVersion (iiPackages ii)
59 fmap spiVersion (iiPackages ii)