diff options
| author |  Joey Hess <id@joeyh.name> | 2013-05-11 15:03:00 -0500 |
|---|---|---|
| committer | Joey Hess <id@joeyh.name> | 2013-05-11 15:03:00 -0500 |
| commit | d0fa82fb721cdc85438287e29a94cb796b7bc464 (patch) | |
| tree | 26a2486b8e715b5937ce41679eafd42c02f2310a /Upgrade.hs | |
| parent | 679eaf6077375c5d59501d12c79e0891cbdd904f (diff) | |
git-annex now builds on Windows (doesn't work)
Diffstat (limited to 'Upgrade.hs')
| -rwxr-xr-x[-rw-r--r--] | Upgrade.hs | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/Upgrade.hs b/Upgrade.hs index 705b190d8..30f2b7ed8 100644..100755 --- a/Upgrade.hs +++ b/Upgrade.hs @@ -5,18 +5,27 @@ - Licensed under the GNU GPL version 3 or higher. -} +{-# LANGUAGE CPP #-} + module Upgrade where import Common.Annex import Annex.Version +#ifndef __WINDOWS__ import qualified Upgrade.V0 import qualified Upgrade.V1 +#endif import qualified Upgrade.V2 upgrade :: Annex Bool upgrade = go =<< getVersion where +#ifndef __WINDOWS__ go (Just "0") = Upgrade.V0.upgrade go (Just "1") = Upgrade.V1.upgrade +#else + go (Just "0") = error "upgrade from v0 on Windows not supported" + go (Just "1") = error "upgrade from v1 on Windows not supported" +#endif go (Just "2") = Upgrade.V2.upgrade go _ = return True |