summaryrefslogtreecommitdiff
path: root/Command
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-01-17 14:48:56 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-01-17 14:48:56 -0400
commit561db6fff3cea081f3203bddee079f5c689ba26e (patch)
treee1727e8341de918256a4920a8e2afc134e9f7dfd /Command
parent0d25c1a99ee914bd5dc3d96ca11a09b222f57747 (diff)
Really fix FTBFS on mipsel and sparc due to test suite not being available on those architectures.
Diffstat (limited to 'Command')
-rw-r--r--Command/Test.hs12
1 files changed, 8 insertions, 4 deletions
diff --git a/Command/Test.hs b/Command/Test.hs
index d4fa5eb5b..be480eeb7 100644
--- a/Command/Test.hs
+++ b/Command/Test.hs
@@ -7,11 +7,12 @@
module Command.Test where
+import Common
import Command
import Messages
def :: [Command]
-def = [ dontCheck repoExists $
+def = [ noRepo startIO $ dontCheck repoExists $
command "test" paramNothing seek SectionPlumbing
"run built-in test suite"]
@@ -28,7 +29,10 @@ seek = [withWords start]
- test suite.
-}
start :: [String] -> CommandStart
-start [] = do
- warning "git-annex was built without its test suite; not testing"
+start ps = do
+ liftIO $ startIO ps
stop
-start _ = error "Cannot specify any additional parameters when running test"
+
+startIO :: CmdParams -> IO ()
+startIO [] = warningIO "git-annex was built without its test suite; not testing"
+startIO _ = error "Cannot specify any additional parameters when running test"