Commit 146e2fcb authored by Camil Staps's avatar Camil Staps 🚀

Update for new Cloogle; pluralise "test case"

parent cf5f9fb5
Subproject commit 00b4e563da95396c1f8373b846b60be75caa4c28
Subproject commit 537593aaa79e5d180d9b1d33124e4530c8553d85
......@@ -7,7 +7,7 @@ CLMFLAGS:=-nr -nt -h 100m -nortsopts\
-IL TCPIP\
-I Cloogle\
-I Cloogle/libcloogle\
-I Cloogle/CleanTypeUnifier\
-I Cloogle/CleanTypes\
-I Cloogle/CleanPrettyPrint\
-I Cloogle/clean-compiler/frontend\
-I Cloogle/clean-compiler/backend\
......
......@@ -23,11 +23,11 @@ import System.FilePath
import System.Options
import System.Process
import Text
import Text.Language
import CloogleDBFactory
import Doc
import TypeUtil
import Clean.Doc
import Clean.Types.Util
import Cloogle.DB.Factory
:: Options =
{ directory :: !FilePath
......@@ -206,7 +206,7 @@ handleModule opts fp w
[f \\ (_,f,_) <- funs ++ macros]
// Write properties
| nprops == 0 = w
# w = output INFO ("Found " <+ nprops <+ " test cases in module " +++ modname) opts w
# w = output INFO ("Found " +++ pluralisen English nprops "test case" +++ " in module " +++ modname) opts w
# (dir,_) = splitFileName output_filename
# (ok,w) = assertDirectory dir w
| isError ok = exit (snd (fromError ok) <+ " " +++ output_filename) opts w
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment