diff options
| author | Péter Diviánszky <divipp@gmail.com> | 2016-02-18 09:56:22 +0100 |
|---|---|---|
| committer | Péter Diviánszky <divipp@gmail.com> | 2016-02-18 09:56:35 +0100 |
| commit | c468af5fdba01215c117aa7637f10fe1acfcdb4d (patch) | |
| tree | d06d982778c43fce60abb3113413c892aa7b721c /test | |
| parent | 6fb07d45cba2fea6c984ad27e31f3ac598b0dbe6 (diff) | |
support local pattern matching functions and local recursive functions
Diffstat (limited to 'test')
| -rw-r--r-- | test/runTests.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/runTests.hs b/test/runTests.hs index a175bc7e..dacd0002 100644 --- a/test/runTests.hs +++ b/test/runTests.hs | |||
| @@ -195,7 +195,7 @@ doTest Config{..} (i, fn) = do | |||
| 195 | liftIO $ putStrLn msg | 195 | liftIO $ putStrLn msg |
| 196 | return (runtime, result) | 196 | return (runtime, result) |
| 197 | where | 197 | where |
| 198 | (splitMPath -> (pa, mn', mn), exts) = splitExtensions' $ dropExtension fn | 198 | (splitMPath -> (pa, mn', mn), reverse -> exts) = splitExtensions' $ dropExtension fn |
| 199 | 199 | ||
| 200 | getMain = do | 200 | getMain = do |
| 201 | r@(fname, x, _) <- local (const $ ioFetch [pa]) $ getDef (mn' ++ concat exts ++ ".lc") "main" Nothing | 201 | r@(fname, x, _) <- local (const $ ioFetch [pa]) $ getDef (mn' ++ concat exts ++ ".lc") "main" Nothing |