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
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