mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-21 02:31:50 +03:00
30 lines
753 B
Idris
30 lines
753 B
Idris
||| NOTE: Please keep this file in sync with the example in docs/source/backends/custom.rst
|
|
|
|
module Main
|
|
|
|
import Core.Context
|
|
import Compiler.Common
|
|
import Idris.Driver
|
|
import Idris.Syntax
|
|
|
|
compile :
|
|
Ref Ctxt Defs ->
|
|
Ref Syn SyntaxInfo ->
|
|
(tmpDir : String) -> (execDir : String) ->
|
|
ClosedTerm -> (outfile : String) -> Core (Maybe String)
|
|
compile defs syn tmp dir term file
|
|
= do coreLift $ putStrLn "I'd rather not."
|
|
pure Nothing
|
|
|
|
execute :
|
|
Ref Ctxt Defs ->
|
|
Ref Syn SyntaxInfo ->
|
|
(execDir : String) -> ClosedTerm -> Core ()
|
|
execute defs syn dir term = do coreLift $ putStrLn "Maybe in an hour."
|
|
|
|
lazyCodegen : Codegen
|
|
lazyCodegen = MkCG compile execute Nothing Nothing
|
|
|
|
main : IO ()
|
|
main = mainWithCodegens [("lazy", lazyCodegen)]
|