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

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)  ;
--}
+-}

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)
+  WrapMonad_ x `mappend` WrapMonad_ y = WrapMonad_  (x >> y)

src/GF/Shell/HelpFile.hs

@@ -720,4 +720,4 @@ txtHelpFile =
   "\n    'pg -utf8'." ++
   "\n" ++
   "\n-- *: Commands and options marked with * are not currently implemented." ++
-  []
+  []

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
+fa2c fa = undefined

src/GF/Speech/PrGSL.hs

@@ -110,4 +110,4 @@ emptyLine :: Doc
 emptyLine = text ""
 
 ($++$) :: Doc -> Doc -> Doc
-x $++$ y = x $$ emptyLine $$ y
+x $++$ y = x $$ emptyLine $$ y

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)
+isSubRelationOf r1 r2 = all (uncurry (isRelatedTo r2)) (relToList r1)

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
+  where mkEquiv = transitiveClosure . symmetricClosure . reflexiveClosure . mkRel

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
+prtS = showString . prt

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
+                      Nothing -> fail err

src/GF/System/NoSignal.hs

@@ -26,4 +26,4 @@ runInterruptibly a =
         h e = return $ Left e
 
 blockInterrupt :: IO a -> IO a
-blockInterrupt = id
+blockInterrupt = id