From 8563f8a7388de23ea9d90c94444c8f9e88e37c04 Mon Sep 17 00:00:00 2001 From: nek0 Date: Mon, 12 Oct 2015 17:19:51 +0200 Subject: [PATCH] fixed bug in inventory json backup --- Handler/Summary.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Handler/Summary.hs b/Handler/Summary.hs index 2bb4ecd..d3d7e97 100755 --- a/Handler/Summary.hs +++ b/Handler/Summary.hs @@ -56,7 +56,7 @@ data BevStore = BevStore } instance ToJSON BevStore where - toJSON (BevStore ident price amount alertAmount maxAmount perCrate ml artNr ppc) = + toJSON (BevStore ident price amount maxAmount perCrate alertAmount ml artNr ppc) = object [ "name" .= ident , "price" .= price