2020-06-14 21:38:50 +03:00
|
|
|
module Main
|
|
|
|
|
|
|
|
import Core.Context
|
|
|
|
import Compiler.Common
|
|
|
|
import Idris.Driver
|
|
|
|
|
2020-08-21 12:51:21 +03:00
|
|
|
compile : Ref Ctxt Defs -> (tmpDir : String) -> (execDir : String) ->
|
2020-06-14 21:38:50 +03:00
|
|
|
ClosedTerm -> (outfile : String) -> Core (Maybe String)
|
2020-08-21 12:51:21 +03:00
|
|
|
compile defs tmp dir term file = do coreLift $ putStrLn "I'd rather not."
|
|
|
|
pure $ Nothing
|
2020-06-14 21:38:50 +03:00
|
|
|
|
|
|
|
execute : Ref Ctxt Defs -> (execDir : String) -> ClosedTerm -> Core ()
|
|
|
|
execute defs dir term = do coreLift $ putStrLn "Maybe in an hour."
|
|
|
|
|
|
|
|
lazyCodegen : Codegen
|
|
|
|
lazyCodegen = MkCG compile execute
|
|
|
|
|
|
|
|
main : IO ()
|
2021-01-16 10:03:45 +03:00
|
|
|
main = mainWithCodegens [("lazy", lazyCodegen)]
|