Merge remote-tracking branch 'in/android-rebuild' into android-rebuild

This commit is contained in:
Joey Hess 2013-09-23 01:16:42 +01:00
commit b30437b57e
4 changed files with 45 additions and 6 deletions

View file

@ -332,12 +332,12 @@ mangleCode = flip_colon
preindent <- many1 $ oneOf " \n" preindent <- many1 $ oneOf " \n"
string "\\ " string "\\ "
lambdaparams <- restofline lambdaparams <- restofline
continuedlambdaparams <- many $ do continuedlambdaparams <- many $ try $ do
indent <- many1 $ char ' ' indent <- many1 $ char ' '
p <- satisfy isLetter p <- satisfy isLetter
aram <- many $ satisfy isAlphaNum <|> oneOf "_" aram <- many $ satisfy isAlphaNum <|> oneOf "_"
newline newline
return $ indent ++ p:aram return $ indent ++ p:aram ++ "\n"
indent <- many1 $ char ' ' indent <- many1 $ char ' '
string "-> " string "-> "
firstline <- restofline firstline <- restofline
@ -348,7 +348,8 @@ mangleCode = flip_colon
return $ indent ++ " " ++ l return $ indent ++ " " ++ l
return $ concat return $ concat
[ prefix:preindent [ prefix:preindent
, "(\\ " ++ lambdaparams ++ "\n" ++ intercalate "\n" continuedlambdaparams , "(\\ " ++ lambdaparams ++ "\n"
, concat continuedlambdaparams
, indent ++ "-> " , indent ++ "-> "
, lambdaparens $ intercalate "\n" (firstline:lambdalines) , lambdaparens $ intercalate "\n" (firstline:lambdalines)
, ")\n" , ")\n"

View file

@ -0,0 +1,6 @@
#!/bin/sh
# Removes all currently installed cross-compiled haskell packages
# except those part of ghc.
# Useful if the build failed.
rm -f $(grep -l $HOME/.ghc/android-14/arm-linux-androideabi-4.7/.cabal/lib/ $HOME/.ghc/android-14/arm-linux-androideabi-4.7/lib/*-ghc-*/package.conf.d/*.conf)
$HOME/.ghc/android-14/arm-linux-androideabi-4.7/arm-linux-androideabi/bin/ghc-pkg recache

View file

@ -0,0 +1,25 @@
From eff7034f0c9f80fd30c9d8952b3fd0a343adccc8 Mon Sep 17 00:00:00 2001
From: foo <bar>
Date: Mon, 23 Sep 2013 00:12:35 +0000
Subject: [PATCH] hack for Bionic
---
cbits/conv.c | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/cbits/conv.c b/cbits/conv.c
index 7ff7b87..2e4c870 100644
--- a/cbits/conv.c
+++ b/cbits/conv.c
@@ -55,7 +55,7 @@ time_t c_parse_unix_time_gmt(char *fmt, char *src) {
#else
strptime(src, fmt, &dst);
#endif
- return timegm(&dst);
+ return NULL; /* timegm(&dst); (not in Bionic) */
}
size_t c_format_unix_time(char *fmt, time_t src, char* dst, int siz) {
--
1.7.10.4

View file

@ -11,6 +11,10 @@
set -e set -e
if [ ! -d haskell-patches ]; then
cd standalone/android
fi
cabalopts="$@" cabalopts="$@"
cabalinstall () { cabalinstall () {
@ -24,6 +28,8 @@ patched () {
cabal unpack $pkg cabal unpack $pkg
cd $pkg* cd $pkg*
git init git init
git config user.name dummy
git config user.email dummy@example.com
git add . git add .
git commit -m "pre-patched state of $pkg" git commit -m "pre-patched state of $pkg"
for patch in ../../haskell-patches/${pkg}_*; do for patch in ../../haskell-patches/${pkg}_*; do
@ -34,7 +40,7 @@ patched () {
$SHELL $SHELL
fi fi
done done
cabalinstall --force-reinstalls "$@" cabalinstall "$@"
rm -rf $pkg* rm -rf $pkg*
cd .. cd ..
} }
@ -50,6 +56,7 @@ install_pkgs () {
cd tmp cd tmp
patched network patched network
patched unix-time
patched lifted-base patched lifted-base
patched zlib patched zlib
patched process patched process
@ -70,12 +77,11 @@ install_pkgs () {
patched profunctors patched profunctors
patched skein patched skein
patched lens patched lens
patched DAV
patched persistent-template patched persistent-template
patched file-embed patched file-embed
patched wai-app-static patched wai-app-static
patched hamlet
patched shakespeare patched shakespeare
patched hamlet
patched shakespeare-css patched shakespeare-css
patched shakespeare-js patched shakespeare-js
patched yesod-routes patched yesod-routes
@ -86,6 +92,7 @@ install_pkgs () {
patched yesod patched yesod
patched async patched async
patched gnuidn patched gnuidn
patched DAV
installgitannexdeps -fAndroid -f-Pairing installgitannexdeps -fAndroid -f-Pairing