tsurushuu

import Network.HTTP
import Codec.Binary.UTF8.String

queryString :: String
queryString = "ひとし+君"

queryRPP :: Int
queryRPP = 10

makeRequestUrl :: String

tsurushuu

import System.IO (hPutStrLn, stderr)
import Control.Exception (catch, IOException, SomeException)
import Prelude hiding (catch)

readFileWithDefault :: FilePath -> String -> IO String
readFileWithDefault filepath defaultString =
    catch
    (readFile filepath)
    (\e -> do
       return (e::SomeException)