@@ -82,14 +82,14 @@ toType pairs outType (name,args) =
8282 "Bool" -> BoolT
8383 _ -> ADT x []
8484
85−toForiegnType (LambdaPT t1 t2) =
86− LambdaT <$> toForiegnType t1 <*> toForiegnType t2
87−toForiegnType (ADTPT name args) = do
85+toForeignType (LambdaPT t1 t2) =
86+ LambdaT <$> toForeignType t1 <*> toForeignType t2
87+toForeignType (ADTPT name args) = do
8888 case name == "JSArray" of
89− True -> ADT name <$> mapM toForiegnType args
89+ True -> ADT name <$> mapM toForeignType args
9090 False -> Left $ "'" ++ name ++
9191 "' is not an exportable type constructor. Only 'JSArray' is exportable."
92−toForiegnType (VarPT x@(c:_))
92+toForeignType (VarPT x@(c:_))
9393 | isLower c =
9494 Left "All exported types must be concrete types (JSNumber, JSString, etc.)"
9595 | x `elem` [ "JSString", "JSNumber", "JSElement" ] = Right (ADT x [])