Commit 4d8fd7ab authored by Camil Staps's avatar Camil Staps 🙂

Add name to generated tests for tests which are booleans

parent 6c8d2a21
......@@ -305,7 +305,8 @@ where
{ gp_name = name`
, gp_implementation = join "\n"
[ name` +++ " :: " +++ toString type
, join " " [name`:map fst3 ts`] +++ " = " +++ join " " [name` +++ "`":map snd3 ts`]
, join " " [name`:map fst3 ts`] +++ " = name \"" +++ name` +++ "\""
, "\t(" +++ join " " [name` +++ "`":map snd3 ts`] +++ ")"
, "where"
, "\t" +++ join " " [name` +++ "`":map fst3 ts`] +++ " = " +++ replaceSubString "\n" "\n\t" imp
]
......
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