@@ -437,6 +437,7 @@ cgForeignArg (FApp (UN "JS_IntT") _, v) = pure v
437437cgForeignArg (FCon (UN "JS_Str"), v) = pure v
438438cgForeignArg (FCon (UN "JS_Ptr"), v) = pure v
439439cgForeignArg (FCon (UN "JS_Unit"), v) = pure v
440+cgForeignArg (FCon (UN "JS_Float"), v) = pure v
440441cgForeignArg (FApp (UN "JS_FnT") [_,FApp (UN "JS_Fn") [_,_, a, FApp (UN "JS_FnBase") [_,b]]], f) =
441442 pure f
442443cgForeignArg (FApp (UN "JS_FnT") [_,FApp (UN "JS_Fn") [_,_, a, FApp (UN "JS_FnIO") [_,_, b]]], f) =