ref: 954613b633856e3a17e92dd7c78a1b50aa96eb35
parent: e5d8d3b6884d892440690e10c92f39b424ccef3e
author: Lennart Augustsson <lennart@augustsson.net>
date: Sun Sep 3 15:23:23 EDT 2023
Formatting
--- a/src/MicroHs/Translate.hs
+++ b/src/MicroHs/Translate.hs
@@ -21,10 +21,9 @@
translate :: (Ident, [LDef]) -> IO ()
translate (mainName, ds) = do
let
- --Xlook :: M.Map Any -> Ident -> Any
look m n = fromMaybe (error $ "not found " ++ showIdent n) $ M.lookup n m
- --Xmp :: M.Map Any
mp = M.fromList [(n, trans (look mp) d) | (n, d) <- ds ]
+
-- Drop all argument up to '--'
args <- getArgs
let prog = unsafeCoerce $ look mp mainName
--
⑨