Fix detection of FInt types in executor
commite534f8ad1957233164c1d1644376c3733d5d3006
authorDavid Christiansen <david@davidchristiansen.dk>
dateThu 9 May 2013, 16:12 (13 years ago)
parent1cf8b7b
src/Core/Execute.hs+1−1
@@ -498,7 +498,7 @@ foreignFromTT t = case (unApplyV t) of
498498 _ -> trace "failed to construct ffun" Nothing
499499
500500getFTy :: ExecVal -> Maybe FType
501−getFTy (EApp (EP _ (UN "FInt") _) (EP _ (UN intTy) _)) =
501+getFTy (EApp (EP _ (UN "FIntT") _) (EP _ (UN intTy) _)) =
502502 case intTy of
503503 "ITNative" -> Just $ FInt ITNative
504504 "IT8" -> Just $ FInt IT8