diff options
Diffstat (limited to 'Command/TestRemote.hs')
-rw-r--r-- | Command/TestRemote.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Command/TestRemote.hs b/Command/TestRemote.hs index b0f2c28bb..cbd2edaf1 100644 --- a/Command/TestRemote.hs +++ b/Command/TestRemote.hs @@ -36,10 +36,10 @@ import qualified Data.ByteString as B import qualified Data.ByteString.Lazy as L import qualified Data.Map as M -cmd :: [Command] -cmd = [ withOptions [sizeOption] $ +cmd :: Command +cmd = withOptions [sizeOption] $ command "testremote" paramRemote seek SectionTesting - "test transfers to/from a remote"] + "test transfers to/from a remote" sizeOption :: Option sizeOption = fieldOption [] "size" paramSize "base key size (default 1MiB)" |