X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=Mate.hs;fp=Mate.hs;h=02c9969ae55274aef67e84397e2b0d686b57a28f;hb=3160b1426c25340503b5ab216965e30509cd8416;hp=0275e81b46e37846a61421ab08869cb73c78d204;hpb=55d3b7af8c3a1fdef0c5e470e649d180dc0a3911;p=mate.git diff --git a/Mate.hs b/Mate.hs index 0275e81..02c9969 100644 --- a/Mate.hs +++ b/Mate.hs @@ -23,7 +23,6 @@ main :: IO () main = do args <- getArgs register_signal - initMethodPool case args of [clspath] -> do let bclspath = B.pack $ map (fromIntegral . ord) clspath