mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

Data.Tuple.swap not available with ghc 6.12.3

Browse source
This commit is contained in:
Joey Hess 2011-05-28 11:56:48 -04:00
parent 7db690bdc2
commit c38f826435
2 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Command/Status.hs
View file

@ -11,7 +11,6 @@ import Control.Monad.State
import Data.Maybe import Data.Maybe
import System.IO import System.IO
import Data.List import Data.List
import Data.Tuple
import qualified Data.Map as M import qualified Data.Map as M
import qualified Annex import qualified Annex
@ -134,6 +133,7 @@ backend_usage = stat "backend usage" $
splits :: [Key] -> [(String, Integer)] splits :: [Key] -> [(String, Integer)]
splits ks = M.toList $ M.fromListWith (+) $ map tcount ks splits ks = M.toList $ M.fromListWith (+) $ map tcount ks
tcount k = (keyBackendName k, 1) tcount k = (keyBackendName k, 1)
swap (a, b) = (b, a)
pp c [] = c pp c [] = c
pp c ((n, b):xs) = "\n\t" ++ b ++ ": " ++ show n ++ pp c xs pp c ((n, b):xs) = "\n\t" ++ b ++ ": " ++ show n ++ pp c xs

3
doc/bugs/build_issue_with_latest_release_0.20110522-1-gde817ba.mdwn
View file

@ -9,3 +9,6 @@ make: *** [git-annex] Error 1
</pre> </pre>
it fails on OSX 10.6.x with ghc 6.12.3 and a corresponding haskell-platform install. I ran a bisect and found that commit 75a3f5027f74565d909fb940893636d081d9872a seems to have broken git-annex for me, reverting the commit allows me to build git-annex, I have not run the tests to verify everything is working correctly though. it fails on OSX 10.6.x with ghc 6.12.3 and a corresponding haskell-platform install. I ran a bisect and found that commit 75a3f5027f74565d909fb940893636d081d9872a seems to have broken git-annex for me, reverting the commit allows me to build git-annex, I have not run the tests to verify everything is working correctly though.
> Probably `swap` appeared only in a newer GHC. I've reverted to avoid a
> versioned build dependency. [[done]] --[[Joey]]