github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-05 22:28:10 +03:00
Code Issues Projects Releases Wiki Activity

Functor laws.

Browse Source
This commit is contained in:
Rob Rix 2018-03-30 18:14:39 -04:00
parent a8d03f2f3e
commit 0d3dadb143
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Language/Ruby/Syntax.hs
View File

@ -31,8 +31,8 @@ doRequire :: MonadEvaluatable location term value m
doRequire name = do doRequire name = do
moduleTable <- getModuleTable moduleTable <- getModuleTable
case ModuleTable.lookup name moduleTable of case ModuleTable.lookup name moduleTable of
Nothing -> (,) <$> (fst <$> load name) <*> boolean True Nothing -> (,) . fst <$> load name <*> boolean True
Just (env, _) -> (,) <$> pure env <*> boolean False Just (env, _) -> (,) env <$> boolean False
newtype Load a = Load { loadArgs :: [a] } newtype Load a = Load { loadArgs :: [a] }