fix build

1 files changed, 2 insertions, 1 deletions

diff --git a/Tests.hs b/Tests.hs
index c0d1f56..d18628e 100644
--- a/Tests.hs
+++ b/Tests.hs
@@ -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