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