From 13e2b4b2bd2692d7abbb7fcaccbe4f3c26fa36ae Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Sat, 21 Jan 2017 20:38:38 +0100
Subject: [PATCH] bla

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

diff --git a/Handler/Statistics.hs b/Handler/Statistics.hs
index 85e7322..d8ff5e2 100644
--- a/Handler/Statistics.hs
+++ b/Handler/Statistics.hs
@@ -18,7 +18,7 @@ module Handler.Statistics where
 import Import
 import Handler.Common
 import Data.List hiding (length)
-import Data.Maybe (fromJust)
+import Data.Maybe (fromMaybe)
 import Data.Time.Calendar (addDays)
 
 getStatisticsR :: Handler RepJson
@@ -59,7 +59,7 @@ getStatisticsR = do
   archdevils <- runDB $ selectList [UserBalance <. -5000] []
   bevs <- runDB $ selectList [] [Asc BeverageId]
   totalLossPrime <- return $ foldl (\acc (Entity _ bev) ->
-    let primePrice = if not (isNothing (beveragePricePerCrate bev) && not (isNothing (beveragePerCrate bev))) then (fromIntegral $ fromJust (beveragePricePerCrate bev)) / (fromIntegral $ fromJust (beveragePerCrate bev)) else 0.0
+    let primePrice = if not (isNothing (beveragePricePerCrate bev) && not (isNothing (beveragePerCrate bev))) then (fromIntegral $ fromMaybe 0 (beveragePricePerCrate bev)) / (fromIntegral $ fromMaybe 0 (beveragePerCrate bev)) else 0.0
     in acc + (((fromIntegral $ beverageCorrectedAmount bev) * primePrice) / 100)
     ) 0 bevs
   totalLossRetail <- return $ foldl (\acc (Entity _ bev) ->