Added newlines and ends of some files. This makes sed happy.

10 files changed, 10 insertions, 10 deletions

diff --git a/src/GF/Compile/Flatten.hs b/src/GF/Compile/Flatten.hs
index d985213bc..6b25edebb 100644
--- a/src/GF/Compile/Flatten.hs
+++ b/src/GF/Compile/Flatten.hs
@@ -89,4 +89,4 @@ ex = putStrLn fs where
   lin fu1 man_N sleep_V = PredVP (DefSg man_N) (UseV sleep_V)  ;
   fun fu2 : N -> V -> Cl ;
   lin fu2 man_N sleep_V = PredVP (DefPl man_N) (UseV sleep_V)  ;
--}
\ No newline at end of file
+-}
diff --git a/src/GF/Data/Compos.hs b/src/GF/Data/Compos.hs
index f8e592bc1..7d46fc5a2 100644
--- a/src/GF/Data/Compos.hs
+++ b/src/GF/Data/Compos.hs
@@ -34,4 +34,4 @@ newtype WrappedMonad_ m = WrapMonad_ { unwrapMonad_ :: m () }
 
 instance Monad m => Monoid (WrappedMonad_ m) where
   mempty  = WrapMonad_ (return ())
-  WrapMonad_ x `mappend` WrapMonad_ y = WrapMonad_  (x >> y)
\ No newline at end of file
+  WrapMonad_ x `mappend` WrapMonad_ y = WrapMonad_  (x >> y)
diff --git a/src/GF/Shell/HelpFile.hs b/src/GF/Shell/HelpFile.hs
index 66de7a5ab..06528204b 100644
--- a/src/GF/Shell/HelpFile.hs
+++ b/src/GF/Shell/HelpFile.hs
@@ -720,4 +720,4 @@ txtHelpFile =
   "\n    'pg -utf8'." ++
   "\n" ++
   "\n-- *: Commands and options marked with * are not currently implemented." ++
-  []
\ No newline at end of file
+  []
diff --git a/src/GF/Speech/PrFA.hs b/src/GF/Speech/PrFA.hs
index acee00a31..2856039ec 100644
--- a/src/GF/Speech/PrFA.hs
+++ b/src/GF/Speech/PrFA.hs
@@ -53,4 +53,4 @@ faCPrinter :: Options -> StateGrammar -> String
 faCPrinter opts s = fa2c $ cfgToFA opts s
 
 fa2c :: DFA String -> String
-fa2c fa = undefined
\ No newline at end of file
+fa2c fa = undefined
diff --git a/src/GF/Speech/PrGSL.hs b/src/GF/Speech/PrGSL.hs
index 4d2dfe5c6..248991380 100644
--- a/src/GF/Speech/PrGSL.hs
+++ b/src/GF/Speech/PrGSL.hs
@@ -110,4 +110,4 @@ emptyLine :: Doc
 emptyLine = text ""
 
 ($++$) :: Doc -> Doc -> Doc
-x $++$ y = x $$ emptyLine $$ y
\ No newline at end of file
+x $++$ y = x $$ emptyLine $$ y
diff --git a/src/GF/Speech/Relation.hs b/src/GF/Speech/Relation.hs
index fe91716c6..641d671a9 100644
--- a/src/GF/Speech/Relation.hs
+++ b/src/GF/Speech/Relation.hs
@@ -127,4 +127,4 @@ isEquivalence :: Ord a => Rel a -> Bool
 isEquivalence r = isReflexive r && isSymmetric r && isTransitive r
 
 isSubRelationOf :: Ord a => Rel a -> Rel a -> Bool
-isSubRelationOf r1 r2 = all (uncurry (isRelatedTo r2)) (relToList r1)
\ No newline at end of file
+isSubRelationOf r1 r2 = all (uncurry (isRelatedTo r2)) (relToList r1)
diff --git a/src/GF/Speech/RelationQC.hs b/src/GF/Speech/RelationQC.hs
index 157a53462..47f783986 100644
--- a/src/GF/Speech/RelationQC.hs
+++ b/src/GF/Speech/RelationQC.hs
@@ -36,4 +36,4 @@ prop_reflexiveClosure_refl ps = isReflexive (reflexiveClosure (mkRel ps))
 
 prop_mkEquiv_equiv :: [(Int,Int)] -> Bool
 prop_mkEquiv_equiv ps = isEquivalence (mkEquiv ps)
-  where mkEquiv = transitiveClosure . symmetricClosure . reflexiveClosure . mkRel
\ No newline at end of file
+  where mkEquiv = transitiveClosure . symmetricClosure . reflexiveClosure . mkRel
diff --git a/src/GF/Speech/SRG.hs b/src/GF/Speech/SRG.hs
index 56d17eed4..19b6c1c1b 100644
--- a/src/GF/Speech/SRG.hs
+++ b/src/GF/Speech/SRG.hs
@@ -232,4 +232,4 @@ lookupFM_ fm k = Map.findWithDefault err k fm
                       ++ "\namong " ++ show (Map.keys fm)
 
 prtS :: Print a => a -> ShowS
-prtS = showString . prt
\ No newline at end of file
+prtS = showString . prt
diff --git a/src/GF/System/ATKSpeechInput.hs b/src/GF/System/ATKSpeechInput.hs
index 2e9e5c0a1..4b50293af 100644
--- a/src/GF/System/ATKSpeechInput.hs
+++ b/src/GF/System/ATKSpeechInput.hs
@@ -134,4 +134,4 @@ getEnv_ e err =
     env <- getEnvironment
     case lookup e env of
                       Just v -> return v
-                      Nothing -> fail err
\ No newline at end of file
+                      Nothing -> fail err
diff --git a/src/GF/System/NoSignal.hs b/src/GF/System/NoSignal.hs
index fdad89b27..5d82a431e 100644
--- a/src/GF/System/NoSignal.hs
+++ b/src/GF/System/NoSignal.hs
@@ -26,4 +26,4 @@ runInterruptibly a =
         h e = return $ Left e
 
 blockInterrupt :: IO a -> IO a
-blockInterrupt = id
\ No newline at end of file
+blockInterrupt = id