Browse Source

Reduce library dependencies in yesod

Michael Snoyman 11 years ago
parent
commit
47ba68ebac

+ 1 - 1
frameworks/Haskell/yesod/bench/bench.cabal

@@ -19,11 +19,11 @@ executable         bench
                 CPP
 
     build-depends: base                          >= 4.7        && < 5
-                 , yesod                         >= 1.4        && < 1.5
                  , yesod-core                    >= 1.4.2      && < 1.5
                  , text                          >= 0.11       && < 1.3
                  , persistent                    >= 2.1        && < 2.2
                  , persistent-mysql              >= 2.1        && < 2.2
+                 , persistent-template           >= 2.1        && < 2.2
                  , warp                          >= 3.0.2.2    && < 3.1
                  , auto-update                   >= 0.1.1.4    && < 0.2
                  , primitive                     >= 0.5

+ 6 - 1
frameworks/Haskell/yesod/bench/src/yesod.hs

@@ -29,7 +29,12 @@ import           Data.Pool                    (withResource)
 import           Data.Text                    (Text)
 import           Database.MongoDB             (Field ((:=)), (=:))
 import qualified Database.MongoDB             as Mongo
+import           Database.Persist             (Key, PersistEntity,
+                                               PersistEntityBackend,
+                                               PersistStore, get)
 import qualified Database.Persist.MySQL       as My
+import           Database.Persist.TH          (mkPersist, mpsGeneric,
+                                               persistLowerCase, sqlSettings)
 import           Network                      (PortID (PortNumber))
 import           Network.HTTP.Types
 import           Network.Wai
@@ -37,7 +42,7 @@ import qualified Network.Wai.Handler.Warp     as Warp
 import           System.Environment           (getArgs)
 import           System.IO.Unsafe             (unsafePerformIO)
 import qualified System.Random.MWC            as R
-import           Yesod                        hiding (Field)
+import           Yesod.Core
 
 mkPersist sqlSettings { mpsGeneric = True } [persistLowerCase|
 World sql=World