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/runTests.hs | |
parent | 6fb07d45cba2fea6c984ad27e31f3ac598b0dbe6 (diff) |
support local pattern matching functions and local recursive functions
Diffstat (limited to 'test/runTests.hs')
-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 |