Anonymous.hs

-- Copyright: 2008-2011 Dino Morelli
-- License: BSD3 (see LICENSE)
-- Author: Dino Morelli <dino@ui3.info>

{-# LANGUAGE FlexibleContexts #-}

module EpubTools.EpubName.Format.Anonymous
   ( fmtAnonymous )
   where

import Control.Monad.Error

import EpubTools.EpubName.Format.Util
   ( format
   , authorSingle , titleSimple
   )
import EpubTools.EpubName.Util ( Fields )


fmtAnonymous :: (MonadError String m) => Fields -> m (String, String)
fmtAnonymous = format "Anonymous"
   "(.*)(Anonymous)" authorSingle
   "(.*)" titleSimple