module Acme.Pirates where
import System.IO
import System.Exit
import Control.Exception
import Prelude hiding (catch)
forPlunder = ReadMode
forSafeKeeping = WriteMode
digUpChest = openFile
buryChest = hClose
loadDoubloon = hGetChar
loadCashBox = hGetLine
stowDoubloon = hPutChar
stowCashBox = hPutStrLn
readTreasureMap = hTell
xMarksTheSpot = hSeek
loadTheTreasure = hGetContents
abandonShip = exitWith
whatSayYe = getLine
collectDoubloon = getChar
pollySquawks = putChar
pollySays = putStr . ("Yar. " ++)
captainsLog = hPutStr stderr
theBlackSpot = throwIO
mutiny = catch
shiverMeTimbers = id
yar = id
meMateys = id