module Import
    ( module Import
    ) where

import ClassyPrelude.Yesod as Import
import Foundation as Import
import Model as Import
import Settings as Import
import Settings.Development as Import
import Settings.StaticFiles as Import
import Types as Import
import Yesod.Auth as Import

getHaddockDir :: PackageSetIdent -> Handler FilePath
getHaddockDir ident = do
    master <- getYesod
    return $ haddockRootDir master </> fpFromText (toPathPiece ident)