From a3b98aa065308340590c63d69e988591efb006b3 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 25 Sep 2017 09:57:41 -0400 Subject: fix build with old version of persistent --- Database/Export.hs | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'Database') diff --git a/Database/Export.hs b/Database/Export.hs index 17755d86b..a41048993 100644 --- a/Database/Export.hs +++ b/Database/Export.hs @@ -9,6 +9,7 @@ {-# LANGUAGE OverloadedStrings, GADTs, FlexibleContexts #-} {-# LANGUAGE MultiParamTypeClasses, GeneralizedNewtypeDeriving #-} {-# LANGUAGE RankNTypes #-} +{-# LANGUAGE CPP #-} module Database.Export ( ExportHandle, @@ -122,9 +123,14 @@ getExportTreeCurrent (ExportHandle h _) = H.queryDbQueue h $ do addExportedLocation :: ExportHandle -> Key -> ExportLocation -> IO () addExportedLocation h k el = queueDb h $ do void $ insertUnique $ Exported ik ef - insertMany_ $ map + let edirs = map (\ed -> ExportedDirectory (toSFilePath (fromExportDirectory ed)) ef) (exportDirectories el) +#if MIN_VERSION_persistent(2,1,0) + insertMany_ edirs +#else + void $ insertMany edirs +#endif where ik = toIKey k ef = toSFilePath (fromExportLocation el) -- cgit v1.2.3