mirror of
https://github.com/github/semantic.git
synced 2024-12-23 14:54:16 +03:00
Add a section header for evaluation.
This commit is contained in:
parent
5b755aa355
commit
aa7d37f49b
@ -42,6 +42,9 @@ data CommandF f where
|
||||
|
||||
type Command = Freer CommandF
|
||||
|
||||
|
||||
-- Evaluation
|
||||
|
||||
runCommand :: Command a -> IO a
|
||||
runCommand = iterFreerA $ \ command yield -> case command of
|
||||
ReadFile path -> do
|
||||
|
Loading…
Reference in New Issue
Block a user