[Pkg-haskell-commits] [SCM] haskell-testpack branch, master, updated. debian/1.0.2-1-4-gb0d6b36

[John Goerzen]

The following commit has been merged in the master branch:
commit 3bb7d938c201a3c865817f54bac409d9eb50575b
Author: John Goerzen <jgoerzen at complete.org>
Date:   Fri Jul 22 20:19:27 2005 +0100

    Eliminated no EOL at EOF warnings

diff --git a/MissingH/AnyDBM/FiniteMapDBM.hs b/MissingH/AnyDBM/FiniteMapDBM.hs
index 294ed3f..2190a97 100644
--- a/MissingH/AnyDBM/FiniteMapDBM.hs
+++ b/MissingH/AnyDBM/FiniteMapDBM.hs
@@ -65,4 +65,4 @@ instance AnyDBM FiniteMapDBM where
     lookupA h k = do fm <- readIORef h
                      return $ lookupFM fm k
     toListA h = do fm <- readIORef h
-                   return $ fmToList fm
\ No newline at end of file
+                   return $ fmToList fm
diff --git a/MissingH/ConfigParser.hs b/MissingH/ConfigParser.hs
index cb1492a..11ecccd 100644
--- a/MissingH/ConfigParser.hs
+++ b/MissingH/ConfigParser.hs
@@ -864,4 +864,4 @@ given like this:
 Although it looks more confusing than before, it still means the same.
 The return value can still be treated as @Either CPError String@ if you so
 desire.
--}
\ No newline at end of file
+-}
diff --git a/MissingH/Debian/ControlParser.hs b/MissingH/Debian/ControlParser.hs
index 6278156..84bd647 100644
--- a/MissingH/Debian/ControlParser.hs
+++ b/MissingH/Debian/ControlParser.hs
@@ -94,5 +94,3 @@ depPart = do packagename <- many1 (noneOf " (")
                           return (split " " t)
                       ) <|> return []
              return (packagename, version, archs)
-
-             
\ No newline at end of file
diff --git a/MissingH/Either.hs b/MissingH/Either.hs
index 4664bcb..1125cf5 100644
--- a/MissingH/Either.hs
+++ b/MissingH/Either.hs
@@ -65,4 +65,4 @@ forceEither (Right x) = x
 MonadError class. -}
 eitherToMonadError :: MonadError e m => Either e a -> m a
 eitherToMonadError (Left x) = throwError x
-eitherToMonadError (Right x) = return x
\ No newline at end of file
+eitherToMonadError (Right x) = return x
diff --git a/MissingH/IO/HVIO.hs b/MissingH/IO/HVIO.hs
index 69cc92a..b1baaaf 100644
--- a/MissingH/IO/HVIO.hs
+++ b/MissingH/IO/HVIO.hs
@@ -628,4 +628,4 @@ instance HVIO PipeWriter where
                          then do mv <- pwmv h
                                  putMVar mv (PipeBit c)
                          else fail "PipeWriter: Couldn't write to pipe because child end is closed"
-    vIsWritable _ = return True
\ No newline at end of file
+    vIsWritable _ = return True
diff --git a/MissingH/List.hs b/MissingH/List.hs
index 4ef6ea5..5e40ff6 100644
--- a/MissingH/List.hs
+++ b/MissingH/List.hs
@@ -359,4 +359,4 @@ fixedWidth len =
           -- Stuff to process: Do it.
           fixedWidthFunc (len:lenxs) input =
               (fixedWidth lenxs, next, [this])
-              where (this, next) = splitAt len input
\ No newline at end of file
+              where (this, next) = splitAt len input
diff --git a/MissingH/Network/FTP/ParserServer.hs b/MissingH/Network/FTP/ParserServer.hs
index 9b2b361..b446d4f 100644
--- a/MissingH/Network/FTP/ParserServer.hs
+++ b/MissingH/Network/FTP/ParserServer.hs
@@ -82,5 +82,3 @@ parseCommand :: Handle -> IO (Either ParseError (String, String))
 parseCommand h =
     do input <- hGetLine h
        return $ parse command "(unknown)" (rstrip input)
-
-       
\ No newline at end of file
diff --git a/MissingH/Str/CSV.hs b/MissingH/Str/CSV.hs
index ba9b469..2e892fd 100644
--- a/MissingH/Str/CSV.hs
+++ b/MissingH/Str/CSV.hs
@@ -104,4 +104,3 @@ genCsvFile inp =
           convcell c = concatMap convchar c
           convchar '"' = "\"\""
           convchar x = [x]
-                          
\ No newline at end of file
diff --git a/MissingH/Time/ParseDate.hs b/MissingH/Time/ParseDate.hs
index 26389eb..7bd833a 100644
--- a/MissingH/Time/ParseDate.hs
+++ b/MissingH/Time/ParseDate.hs
@@ -282,4 +282,4 @@ int :: GenParser Char st Int
 int = liftM read (many1 digit)
 
 sign :: GenParser Char st Int
-sign = (char '+' >> return 1) <|> (char '-' >> return (-1))
\ No newline at end of file
+sign = (char '+' >> return 1) <|> (char '-' >> return (-1))

-- 
haskell-testpack