remove unused local vars

haskell · Aug 7, 2007 · cfa1b6c · cfa1b6c
1 parent d255513
commit cfa1b6c
Showing 1 changed file with 1 addition and 5 deletions.
diff --git 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 =