angel-0.5.2: src/Angel/Files.hs

{-# LANGUAGE ScopedTypeVariables #-}
module Angel.Files ( getFile ) where

import System.IO ( Handle
                 , openFile
                 , IOMode(AppendMode) )

import Angel.Data ( GroupConfig )

getFile :: String -> GroupConfig -> IO Handle
getFile path _ = openFile path AppendMode