From 465f51d1698f9a730a88cd6d5702e30ad9596a67 Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Thu, 23 Apr 2015 03:32:53 +0200
Subject: [PATCH] fix in database restoration

---
 Handler/Summary.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Handler/Summary.hs b/Handler/Summary.hs
index 7b59d4a..3199cfd 100644
--- a/Handler/Summary.hs
+++ b/Handler/Summary.hs
@@ -1,6 +1,6 @@
 module Handler.Summary where
 
-import Import
+import Import as I
 import qualified Data.List as L
 import Data.Aeson
 import Data.Conduit.Binary
@@ -78,7 +78,7 @@ postUploadInventoryJsonR = do
         True -> do
           source <- runResourceT $ fileSource file $$ sinkLbs
           bevs <- return $ fromMaybe [] $ (decode source :: Maybe [BevStore])
-          _ <- return $ map insOrUpd bevs
+          I.mapM_ insOrUpd bevs
           setMessageI MsgRestoreSuccess
           redirect $ HomeR
         False -> do