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

import Text.Document.Document
import Network.Orchid.Core.Backend
import Network.Orchid.Core.Format
import Network.Protocol.Uri

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

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