From 3bfb84e1c78c6199fd3c69a01b509145d1b399c2 Mon Sep 17 00:00:00 2001 From: hasufell Date: Thu, 2 Oct 2014 13:14:16 +0200 Subject: [PATCH] Rename startGUI to makeGUI --- Gtk.hs | 4 ++-- Main.hs | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/Gtk.hs b/Gtk.hs index 0955a6d..caf72c0 100644 --- a/Gtk.hs +++ b/Gtk.hs @@ -12,8 +12,8 @@ import Util -- |Handle the whole GTK gui. -startGUI :: FilePath -> IO () -startGUI startFile = do +makeGUI :: FilePath -> IO () +makeGUI startFile = do homedir <- getHomeDirectory -- init gui diff --git a/Main.hs b/Main.hs index 0a0a010..300474a 100644 --- a/Main.hs +++ b/Main.hs @@ -6,5 +6,5 @@ main :: IO () main = do a <- getArgs case null a of - False -> startGUI (head a) - True -> startGUI "" + False -> makeGUI (head a) + True -> makeGUI ""