ref: 6470d2eb38cd9425f6d6a137d2443b52e6849370
parent: c4ba9a949536b44d71891791b7486548a3c3c213
author: Lennart Augustsson <lennart@augustsson.net>
date: Thu Nov 2 10:26:32 EDT 2023
Add missing LDouble
--- a/src/MicroHs/Translate.hs
+++ b/src/MicroHs/Translate.hs
@@ -39,6 +39,7 @@
Var n -> r n
App f a -> unsafeCoerce (trans r f) (trans r a)
Lit (LInt i) -> unsafeCoerce i
+ Lit (LDouble i) -> unsafeCoerce i
Lit (LStr s) -> trans r (encodeString s)
Lit (LPrim p) -> fromMaybe (error $ "primlookup: " ++ p) $ lookup p primTable
_ -> error "trans: impossible"
--
⑨