Remove some more warnings

Handler/Journal.hs

@@ -41,7 +41,7 @@ merge [] (c:cs) = (Right $ entityVal c) : merge [] cs
 merge (t:ts) [] = (Left $ entityVal t) : merge ts []
 merge (t:ts) (c:cs)
   | transactionTime (entityVal t) < cashCheckTime (entityVal c) = (Left $ entityVal t)  : merge ts (c:cs)
-  | transactionTime (entityVal t) > cashCheckTime (entityVal c) = (Right $ entityVal c) : merge (t:ts) cs
+  | otherwise                                                   = (Right $ entityVal c) : merge (t:ts) cs
 
 getJournalPageR :: Int -> Handler Html
 getJournalPageR p = do

Handler/Modify.hs

@@ -110,7 +110,7 @@ getDeleteBeverageR :: BeverageId -> Handler Html
 getDeleteBeverageR bId = do
   mBev <- runDB $ get bId
   case mBev of
-    Just bev -> do
+    Just _ -> do
       runDB $ delete bId
       setMessageI MsgItemDeleted
       redirect HomeR

Handler/Supplier.hs

@@ -103,7 +103,6 @@ modifySupplierForm sup = SupConf
   <*> aopt (selectField avatars) (bfs MsgSelectAvatar) (Just $ supplierAvatar sup)
   <*  bootstrapSubmit (msgToBSSubmit MsgSubmit)
   where
-    master = getYesod
     avatars = do
       ents <- runDB $ selectList [] [Asc AvatarIdent]
       optionsPairs $ map (\ent -> ((avatarIdent $ entityVal ent), entityKey ent)) ents

yammat.cabal

@@ -90,7 +90,7 @@ library
                  , aeson                         >= 0.6        && < 0.11
                  , conduit                       >= 1.0        && < 2.0
                  , monad-logger                  >= 0.3        && < 0.4
-                 , fast-logger                   >= 2.2        && < 2.3
+                 , fast-logger                   >= 2.2
                  , wai-logger                    >= 2.2        && < 2.3
                  , file-embed
                  , safe