orchid-0.0.7: src/Network/Orchid/Format/Haskell.hs

module Network.Orchid.Format.Haskell (fHaskell) where

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

fHaskell = WikiFormat "hs" "text/plain" haskell

haskell :: FileStore -> FilePath -> FilePath -> String -> IO Output
haskell _ _ _ src = return 
  $ TextOutput
  $ either show show
  $ fromWiki src