Replace ByteString append with mappend in Daemon code

istathar · Feb 19, 2015 · 70989f6 · 70989f6
1 parent 1609110
commit 70989f6
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/Vaultaire/Daemon.hs b/lib/Vaultaire/Daemon.hs
@@ -394,11 +394,11 @@ dayMapsFromCeph origin' = do
 
 -- | Ceph object ID of the origin's Simple DayMap.
 simpleDayOID :: Origin -> ByteString
-simpleDayOID (Origin origin') = "02_" `BS.append` origin' `BS.append` "_simple_days"
+simpleDayOID (Origin origin') = "02_" <> origin' <> "_simple_days"
 
 -- | Ceph object ID of the origin's Extended DayMap.
 extendedDayOID :: Origin -> ByteString
-extendedDayOID (Origin origin') = "02_" `BS.append` origin' `BS.append` "_extended_days"
+extendedDayOID (Origin origin') = "02_" <> origin' <> "_extended_days"
 
 -- | Ceph object ID of the bucket at the provided epoch.
 bucketOID :: Origin -> Epoch -> Bucket -> String -> ByteString