@@ -10,6 +10,7 @@ import Control.Exception (throwIO)
1010import qualified Codec.Archive.Tar as Tar
1111import qualified Data.ByteString.Lazy as L
1212import Control.Arrow (second)
13+import Control.Monad (unless)
1314import Distribution.Text (display)
1415import System.Directory (doesFileExist)
1516import System.FilePath ((</>), (<.>))
@@ -47,6 +48,12 @@ createHackageFile isInc ii ghcVer date hackageH tarballH = do
4748 , filter (/= '.') ghcVer
4849 , if isInc then "-inclusive" else "-exclusive"
4950 ]
51+
52+ unless isInc $ do
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"
5057 where
5158 selected = Map.fromList . map toStrs . Map.toList $
5259 fmap spiVersion (iiPackages ii)