diff options
| author | bringert <bringert@cs.chalmers.se> | 2007-12-20 17:07:56 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2007-12-20 17:07:56 +0000 |
| commit | 4ab0df67c5c5ae837e63b3c7285ef97058740778 (patch) | |
| tree | b69acfd816755cf0e672d8751125ce9b32099fbb /src/GF/Speech | |
| parent | 3d80cf6bf92f8f17be0682d3de8bf241a52b1228 (diff) | |
Added newlines and ends of some files. This makes sed happy.
Diffstat (limited to 'src/GF/Speech')
| -rw-r--r-- | src/GF/Speech/PrFA.hs | 2 | ||||
| -rw-r--r-- | src/GF/Speech/PrGSL.hs | 2 | ||||
| -rw-r--r-- | src/GF/Speech/Relation.hs | 2 | ||||
| -rw-r--r-- | src/GF/Speech/RelationQC.hs | 2 | ||||
| -rw-r--r-- | src/GF/Speech/SRG.hs | 2 |
5 files changed, 5 insertions, 5 deletions
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 |