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