Plain.hs

module Network.Orchid.Format.Plain (fPlain) where

import Data.FileStore (FileStore)
import Network.Orchid.Core.Format
import Network.Protocol.Uri
import Text.Document.Document

fPlain :: WikiFormat
fPlain = WikiFormat "txt" "text/plain" plain

plain :: FileStore -> FilePath -> FilePath -> String -> IO Output
plain _ _ _ = return . TextOutput