writeDoc :: FilePath -> Doc -> IO ()
writeDoc fpath doc
  = do h <- openFile fpath WriteMode
       hPutDoc h doc
       hClose h


-----------------------------------------------------------
-- insert spaces
-- "indentation" used to insert tabs but tabs seem to cause
-- more trouble than they solve :-)
-----------------------------------------------------------
writeDoc :: FilePath -> Doc -> IO ()
writeDoc fpath doc
  = do h <- openFile fpath WriteMode
       hPutDoc h doc
       hClose h


-----------------------------------------------------------
-- insert spaces
-- "indentation" used to insert tabs but tabs seem to cause
-- more trouble than they solve :-)
-----------------------------------------------------------
writeDoc fpath doc
  = do h <- openFile fpath WriteMode
       hPutDoc h doc
       hClose h


-----------------------------------------------------------
-- insert spaces
-- "indentation" used to insert tabs but tabs seem to cause
-- more trouble than they solve :-)
-----------------------------------------------------------