diff --git a/Distribution/PackageDescription.hs b/Distribution/PackageDescription.hs
index ac642f8d0c7..67a09905f97 100644
--- a/Distribution/PackageDescription.hs
+++ b/Distribution/PackageDescription.hs
@@ -1071,7 +1071,7 @@ parseDescription file = do
         _ -> return (reverse acc)
               
     getLibOrExe cond = peekField >>= \mf -> case mf of
-        Just (Section l sn sl fs)
+        Just (Section _ sn sl fs)
           | sn == "executable" -> do
               flds <- collectFields parseExeFields fs
               skipField
@@ -1118,10 +1118,6 @@ parseDescription file = do
 
     parseExeFields = lift . parseFields executableFieldDescrs nullExecutable
 
-    errEOF = lift $ syntaxError (-1) "Unexpected end of file"
-
-
-
 
 parseFields :: [FieldDescr a] -> a  -> [Field] -> ParseResult a
 parseFields descrs ini fields =