readConfig :: IO Config
readConfig =
  do fp <- getHomeDirectory
     c <- readFile $ fp </> projectConfig defaultProject
     case parseConfig c of
          Right q -> return q
          Left x -> throw x
readConfig :: IO Config
readConfig =
  do fp <- getHomeDirectory
     c <- readFile $ fp </> projectConfig defaultProject
     case parseConfig c of
          Right q -> return q
          Left x -> throw x
readConfig =
  do fp <- getHomeDirectory
     c <- readFile $ fp </> projectConfig defaultProject
     case parseConfig c of
          Right q -> return q
          Left x -> throw x