From 83f81b23a99ae64586737dec947e0bffc475393b Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 30 Aug 2016 19:56:20 -0400 Subject: fix build --- Tests.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'Tests.hs') 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 -- cgit v1.2.3