haskell/stackage
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage.git synced 2026-02-12 06:17:29 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Some initial Windows fixes

Browse Source
This commit is contained in:
Michael Snoyman 2013-05-21 04:17:03 -07:00
parent fba57b71f9
commit d63bab8194
2 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Stackage/Config.hs
View File

@ -130,8 +130,12 @@ defaultStablePackages = unPackageMap $ execWriter $ do
[ "asn1-data bytedump certificate cipher-aes cipher-rc4 connection" [ "asn1-data bytedump certificate cipher-aes cipher-rc4 connection"
, "cprng-aes cpu crypto-pubkey-types crypto-random-api cryptocipher" , "cprng-aes cpu crypto-pubkey-types crypto-random-api cryptocipher"
, "cryptohash hit language-java libgit pem siphash socks tls" , "cryptohash hit language-java libgit pem siphash socks tls"
, "tls-debug tls-extra udbus vhd xenstore" , "tls-debug tls-extra vhd xenstore"
] ]
#if !defined(mingw32_HOST_OS) && !defined(__MINGW32__)
-- Does not compile on Windows
add "Vincent Hanquez" "udbus"
#endif
mapM_ (add "Edward Kmett <ekmett@gmail.com>") $ words =<< mapM_ (add "Edward Kmett <ekmett@gmail.com>") $ words =<<
[ "ad adjunctions bifunctors bound categories charset comonad comonad-transformers" [ "ad adjunctions bifunctors bound categories charset comonad comonad-transformers"

6
Stackage/Select.hs
View File

@ -1,4 +1,5 @@
{-# LANGUAGE PatternGuards #-} {-# LANGUAGE PatternGuards #-}
{-# LANGUAGE CPP #-}
module Stackage.Select module Stackage.Select
( select ( select
, defaultSelectSettings , defaultSelectSettings
@ -27,6 +28,11 @@ defaultSelectSettings = SelectSettings
, excludedPackages = empty , excludedPackages = empty
, flags = \coreMap -> , flags = \coreMap ->
Set.fromList (words "blaze_html_0_5") `Set.union` Set.fromList (words "blaze_html_0_5") `Set.union`
#if defined(mingw32_HOST_OS) || defined(__MINGW32__)
-- Needed on Windows to get unix-compat to compile
Set.fromList (words "old-time") `Set.union`
#endif
-- Support for containers-unicode-symbols -- Support for containers-unicode-symbols
(case Map.lookup (PackageName "containers") coreMap of (case Map.lookup (PackageName "containers") coreMap of
Just v | Just range <- simpleParse "< 0.5", v `withinRange` range Just v | Just range <- simpleParse "< 0.5", v `withinRange` range