GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-13 05:02:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
bringert
2007-12-20 17:07:56 +00:00
parent 3d80cf6bf9
commit 4ab0df67c5
10 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/Speech/PrFA.hs
View File

@@ -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

2
src/GF/Speech/PrGSL.hs
View File

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

2
src/GF/Speech/Relation.hs
View File

@@ -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)

2
src/GF/Speech/RelationQC.hs
View File

@@ -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

2
src/GF/Speech/SRG.hs
View File

@@ -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