{-# LANGUAGE OverloadedStrings #-}

-- | This module contains the POST handler for deleting files.
module Handler.Delete where

import qualified Data.Text as Text
import qualified Data.Text.Encoding as Text
import Yesod

import Foundation
import Model

getDeleteR :: Key StoredFile -> Handler Html
getDeleteR ident = do
    deleteById ident
    redirect HomeR
