-import Control.Monad.IO.Class ( MonadIO )
-import Database.Groundhog (
- defaultMigrationLogger,
- insert,
- migrate,
- runMigration )
-import Database.Groundhog.Core ( PersistBackend, PersistEntity )
-import Text.XML.HXT.Core (
- XmlPickler,
- XmlTree,
- unpickleDoc,
- xpickle )
-
-
--- | The type that will be returned from every file import attempt. If
--- there was an error, its description will be wrapped in an Err. If
--- we successfully imported records, the number of records imported
--- will be wrapped in a Succ.
---
--- Anything else will be wrapped in a "Info" constructor;
--- i.e. somewhere between success and failure. This is like an
--- 'Either' with three choices. A "Info" return value means that
--- the XML document *was* processed, so it should be removed.
+-- System imports
+import Control.Monad ( forM_ )
+import Control.Monad.IO.Class ( MonadIO( liftIO ) )
+import qualified Data.Map as Map ( elems )
+import Database.Groundhog ( executeRaw )
+import Database.Groundhog.Generic (
+ createMigration,
+ getQueries,
+ mergeMigrations )
+import Database.Groundhog.Core ( Migration, NamedMigrations, PersistBackend )
+import Network.Services.TSN.Report ( report_info )
+
+
+-- | The type that will be returned from every file import attempt.