-- | Close a file file openned with 'fileOpen'.
fileClose :: Exp FileHandle -> Action ()
fileClose = emit1 FileClose
fileClose :: Exp FileHandle -> Action ()
fileClose = emit1 FileClose
fileClose = emit1 FileClose