diff options
Diffstat (limited to 'Tests.hs')
-rw-r--r-- | Tests.hs | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -20,6 +20,7 @@ import System.IO import qualified Data.ByteString.UTF8 as BU8 import qualified Data.ByteString as B import qualified Data.Set as S +import Data.Monoid type TestDesc = B.ByteString @@ -81,7 +82,7 @@ withTestStorageLocations a = bracket setup cleanup go -- | Test of backup and restore of a SecretKey. backupRestoreTest :: TestDesc -> SecretKey -> Test backupRestoreTest testdesc secretkey = - ("backup and restore (" ++ testdesc ++ ")", runtest) + ("backup and restore (" <> testdesc <> ")", runtest) where runtest = withTestStorageLocations $ \storagelocations -> do backup storagelocations |