Get rid of export lists

This commit is contained in:
Michael Snoyman 2012-10-12 11:19:45 +02:00
parent 47365910da
commit 74cf1f77be
4 changed files with 23 additions and 47 deletions

View File

@ -1,17 +1,4 @@
module Foundation
( ~sitearg~ (..)
, Route (..)
, ~sitearg~Message (..)
, resources~sitearg~
, Handler
, Widget
, Form
, maybeAuth
, requireAuth
, module Settings
, module Model
, getExtra
) where
module Foundation where
import Prelude
import Yesod

View File

@ -1,31 +1,28 @@
module Import
( module Prelude
, module Yesod
, module Foundation
, module Settings.StaticFiles
, module Settings.Development
, module Data.Monoid
, module Control.Applicative
, Text
#if __GLASGOW_HASKELL__ < 704
, (<>)
#endif
( module Import
) where
import Prelude hiding (writeFile, readFile, head, tail, init, last)
import Yesod hiding (Route(..))
import Foundation
#if __GLASGOW_HASKELL__ < 704
import Data.Monoid (Monoid (mappend, mempty, mconcat))
#else
import Data.Monoid (Monoid (mappend, mempty, mconcat), (<>))
#endif
import Control.Applicative ((<$>), (<*>), pure)
import Data.Text (Text)
import Settings.StaticFiles
import Settings.Development
import Prelude as Import hiding (head, init, last,
readFile, tail, writeFile)
import Yesod as Import hiding (Route (..))
import Control.Applicative as Import (pure, (<$>), (<*>))
import Data.Text as Import (Text)
import Foundation as Import
import Model as Import
import Settings as Import
import Settings.Development as Import
import Settings.StaticFiles as Import
#if __GLASGOW_HASKELL__ >= 704
import Data.Monoid as Import
(Monoid (mappend, mempty, mconcat),
(<>))
#else
import Data.Monoid as Import
(Monoid (mappend, mempty, mconcat))
#if __GLASGOW_HASKELL__ < 704
infixr 5 <>
(<>) :: Monoid m => m -> m -> m
(<>) = mappend

View File

@ -3,14 +3,7 @@
-- In addition, you can configure a number of different aspects of Yesod
-- by overriding methods in the Yesod typeclass. That instance is
-- declared in the Foundation.hs file.
module Settings
( widgetFile
, PersistConfig
, staticRoot
, staticDir
, Extra (..)
, parseExtra
) where
module Settings where
import Prelude
import Text.Shakespeare.Text (st)

View File

@ -5,7 +5,6 @@
module Main where
import Import
import Settings
import Yesod.Default.Config
import Yesod.Test
import Application (makeFoundation)