Commit f0fbdce0 authored by Diederik van Arkel's avatar Diederik van Arkel

remove unused uniqueness

parent fe4d6777
......@@ -13,5 +13,5 @@ TooltempDir :: String
EnvsDir :: String
PrefsDir :: String
batchOptions :: !*World -> (!Bool,!Bool,!String,!*File,!*World)
batchOptions :: !*World -> (!Bool,Bool,String,*File,!*World)
wAbort :: !String !*World -> *World
......@@ -54,7 +54,7 @@ initPlatformCommandLine ps
# files = map GetLongPathName files
= (files, ps)
batchOptions :: !*World -> (!Bool,!Bool,!String,!*File,!*World)
batchOptions :: !*World -> (!Bool,Bool,String,*File,!*World)
batchOptions world
= case [arg \\ arg <-: getCommandLine] of
[_, "--batch-build", prj]
......@@ -73,7 +73,7 @@ where
wAbort :: !String !*World -> *World
wAbort message world
# stderr = fwrites message stderr
// # (_,world) = fclose stderr world
# (_,world) = fclose stderr world
# world = set_return_code_world (-1) world
= world
......
Markdown is supported
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