yesod-vite-0.1.0.0: test/TestApp.hs

module TestApp where
import Yesod.Static (Static, static)


data App = App {
  appStatic :: Static,
  appInDev :: Bool
}

getApp :: Bool -> IO App
getApp indev = do
  s <- static "./"
  return $ App s indev