removed a lot of warnings

Foundation.hs

@@ -24,7 +24,6 @@ import Yesod.Logger (Logger, logMsg, formatLogText)
 import Network.HTTP.Conduit (Manager)
 import qualified Settings
 import qualified Database.Persist.Store
-import Settings.StaticFiles
 import Database.Persist.GenericSql
 import Settings (widgetFile, Extra (..))
 import Model

Handler/Entry.hs

@@ -14,7 +14,7 @@ import Data.Text (pack)
 
 cssClassVote :: [Entity Vote] -> Text
 cssClassVote [] = ""
-cssClassVote ((Entity voteId vote):vs) = case voteValue vote of
+cssClassVote ((Entity _ vote):_) = case voteValue vote of
                                             1    -> " yeah_voted"
                                             (-1) -> " neah_voted"
                                             _    -> ""
@@ -36,7 +36,7 @@ getEntryR entryId = do
             votes <- return []
             defaultLayoutJson
                         (htmlWidget titleEntry entry currentUserId votes)
-                        (jsonWidget titleEntry entry currentUserId votes)
+                        (jsonWidget titleEntry)
           Just userId -> do
             votes <- runDB $ selectList
                                 [VoteCreator ==. userId,
@@ -44,10 +44,10 @@ getEntryR entryId = do
                                 [LimitTo 1]
             defaultLayoutJson
                         (htmlWidget titleEntry entry currentUserId votes)
-                        (jsonWidget titleEntry entry currentUserId votes)
+                        (jsonWidget titleEntry)
     Nothing    -> errorPageJson titleEntry
   where
-      jsonWidget titleStr entry currentUserId votes = object ["msg" .= titleStr]
+      jsonWidget titleStr = object ["msg" .= titleStr]
       htmlWidget titleStr entry currentUserId votes = do
         setTitle $ toHtml titleStr
         $(widgetFile "entry")

Handler/Helper.hs

@@ -14,6 +14,7 @@ import qualified Data.Map as M
 
 -- Show the id number from an entry
 -- Can be used inside HTML
+showId :: Key backend entity -> String
 showId k = showInt64 $ unKey k
   where showInt64 (PersistInt64 i) = show i
         showInt64 _ = "unknow"