fixed bug in inventory json backup

This commit is contained in:
nek0 2015-10-12 17:19:51 +02:00
parent 34a5b61993
commit 8563f8a738

View file

@ -56,7 +56,7 @@ data BevStore = BevStore
} }
instance ToJSON BevStore where 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 object
[ "name" .= ident [ "name" .= ident
, "price" .= price , "price" .= price