diff --git a/Assistant/WebApp/Configurators/Edit.hs b/Assistant/WebApp/Configurators/Edit.hs index 79f04dc067..4bdf554bb8 100644 --- a/Assistant/WebApp/Configurators/Edit.hs +++ b/Assistant/WebApp/Configurators/Edit.hs @@ -6,6 +6,7 @@ -} {-# LANGUAGE CPP, QuasiQuotes, TemplateHaskell, OverloadedStrings #-} +{-# LANGUAGE FlexibleContexts #-} module Assistant.WebApp.Configurators.Edit where diff --git a/Assistant/WebApp/Configurators/Local.hs b/Assistant/WebApp/Configurators/Local.hs index 8e44418e0f..59563bde88 100644 --- a/Assistant/WebApp/Configurators/Local.hs +++ b/Assistant/WebApp/Configurators/Local.hs @@ -5,7 +5,8 @@ - Licensed under the GNU AGPL version 3 or higher. -} -{-# LANGUAGE CPP, QuasiQuotes, TemplateHaskell, OverloadedStrings, RankNTypes, KindSignatures, TypeFamilies #-} +{-# LANGUAGE CPP, QuasiQuotes, TemplateHaskell, OverloadedStrings, #-} +{-# LANGUAGE RankNTypes, KindSignatures, TypeFamilies, FlexibleContexts #-} module Assistant.WebApp.Configurators.Local where diff --git a/Assistant/WebApp/Configurators/Ssh.hs b/Assistant/WebApp/Configurators/Ssh.hs index 21427a826b..1a4258178a 100644 --- a/Assistant/WebApp/Configurators/Ssh.hs +++ b/Assistant/WebApp/Configurators/Ssh.hs @@ -6,7 +6,7 @@ -} {-# LANGUAGE QuasiQuotes, TemplateHaskell, OverloadedStrings #-} -{-# LANGUAGE CPP #-} +{-# LANGUAGE CPP, FlexibleContexts #-} module Assistant.WebApp.Configurators.Ssh where @@ -103,7 +103,7 @@ sshInputAForm hostnamefield d = normalize <$> gen , ("existing ssh key", ExistingSshKey) ] - check_username = checkBool (all (`notElem` "/:@ \t") . T.unpack) + check_username = checkBool (all (`notElem` ("/:@ \t" :: String)) . T.unpack) bad_username textField bad_username = "bad user name" :: Text diff --git a/Command/Log.hs b/Command/Log.hs index e1438ba154..671c9d674d 100644 --- a/Command/Log.hs +++ b/Command/Log.hs @@ -176,7 +176,11 @@ parseRaw l = go $ words l parseTimeStamp :: String -> POSIXTime parseTimeStamp = utcTimeToPOSIXSeconds . fromMaybe (error "bad timestamp") . +#if MIN_VERSION_time(1,5,0) + parseTimeM True defaultTimeLocale "%s" +#else parseTime defaultTimeLocale "%s" +#endif showTimeStamp :: TimeZone -> POSIXTime -> String showTimeStamp zone = show . utcToLocalTime zone . posixSecondsToUTCTime diff --git a/debian/changelog b/debian/changelog index 71818dcc32..c901df0f64 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +git-annex (5.20150509) UNRELEASED; urgency=medium + + * Now builds cleanly using ghc 7.10 (as well as ghc back to 7.6). + + -- Joey Hess Sun, 10 May 2015 15:45:48 -0400 + git-annex (5.20150508) unstable; urgency=medium * Improve behavior when a git-annex command is told to operate