Commit 032ff969 authored by John van Groningen's avatar John van Groningen
Browse files

rename function initPlatformCommandLine as initPlatformCommandLineArguments

parent e451f510
...@@ -231,7 +231,7 @@ where ...@@ -231,7 +231,7 @@ where
# (twi,ps) = accPLoc getTypeWinInfo ps # (twi,ps) = accPLoc getTypeWinInfo ps
# twi = TW_SetUpd ([menuIds.mn_cut,menuIds.mn_pst,menuIds.mn_clr:menuIds.mg_edt]) twi # twi = TW_SetUpd ([menuIds.mn_cut,menuIds.mn_pst,menuIds.mn_clr:menuIds.mg_edt]) twi
# ps = appPLoc (setTypeWinInfo twi) ps # ps = appPLoc (setTypeWinInfo twi) ps
# (files,ps) = initPlatformCommandLine ps # (files,ps) = initPlatformCommandLineArguments ps
# ps = openfiles files ps # ps = openfiles files ps
# ps = SetProcessIcon CleanIcon ps # ps = SetProcessIcon CleanIcon ps
= installPlatformEventHandlers ps = installPlatformEventHandlers ps
......
...@@ -5,7 +5,7 @@ import StdIOCommon ...@@ -5,7 +5,7 @@ import StdIOCommon
PlatformDependant win mac :== win PlatformDependant win mac :== win
initPlatformCommandLine :: !*(PSt .l) -> (![String],!*PSt .l) initPlatformCommandLineArguments:: !*(PSt .l) -> (![String],!*PSt .l)
installPlatformEventHandlers :: !*(PSt .l) -> *(PSt .l) installPlatformEventHandlers :: !*(PSt .l) -> *(PSt .l)
openPlatformWindowMenu :: !*(PSt .l) -> *(PSt .l) openPlatformWindowMenu :: !*(PSt .l) -> *(PSt .l)
......
...@@ -44,8 +44,8 @@ where ...@@ -44,8 +44,8 @@ where
ccall GetPrivateProfileStringA@24 "PsssIIs:I:I" ccall GetPrivateProfileStringA@24 "PsssIIs:I:I"
} }
initPlatformCommandLine :: !*(PSt .l) -> (![String],!*PSt .l) initPlatformCommandLineArguments :: !*(PSt .l) -> (![String],!*PSt .l)
initPlatformCommandLine ps initPlatformCommandLineArguments ps
# args = cl_args # args = cl_args
# args = [arg \\ arg <-: args] # args = [arg \\ arg <-: args]
# args = filter_opts args # args = filter_opts args
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment