-- |
-- Path to lambdabot directory
--
lambdabotHome :: IORef FilePath
lambdabotHome = unsafePerformIO $ do
                  userHome <- getHomeDirectory
                  home <- readFile (userHome ++ [pathSeparator] ++ ".ghci")
                  newIORef (parsedHome home)

lambdabotHome :: IORef FilePath
lambdabotHome = unsafePerformIO $ do
                  userHome <- getHomeDirectory
                  home <- readFile (userHome ++ [pathSeparator] ++ ".ghci")
                  newIORef (parsedHome home)

lambdabotHome = unsafePerformIO $ do
                  userHome <- getHomeDirectory
                  home <- readFile (userHome ++ [pathSeparator] ++ ".ghci")
                  newIORef (parsedHome home)
