persistent-discover 0.1.0.4 → 0.1.0.5
raw patch · 4 files changed
+40/−3 lines, 4 filesdep +discover-instancesdep +some-dict-ofdep +textPVP ok
version bump matches the API change (PVP)
Dependencies added: discover-instances, some-dict-of, text
API changes (from Hackage documentation)
Files
- ChangeLog.md +5/−1
- persistent-discover.cabal +11/−2
- src/Database/Persist/Discover/Exe.hs +1/−0
- test/Database/Persist/Discover/ExeSpec.hs +23/−0
ChangeLog.md view
@@ -2,10 +2,14 @@ ## Unreleased changes +## 0.1.0.5++- Fix a bug where `TemplateHaskell` pragma was not added. [#6](https://github.com/parsonsmatt/persistent-discover/pull/6)+ ## 0.1.0.4 - Fix a bug where non-Haskell files would be picked up and imported in the- generated file. [#]()+ generated file. [#4](https://github.com/parsonsmatt/persistent-discover/pull/4) ## 0.1.0.3
persistent-discover.cabal view
@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: 02c55b7bab0afd35d762f5a1f8f30fbab6f0b6c13966145570b5572c2773bdc5+-- hash: 7afb3dfe3b260fc3437dbe3d71ee99ef0309962a4069b97714259c50024348c1 name: persistent-discover-version: 0.1.0.4+version: 0.1.0.5 synopsis: Persistent module discover utilities description: This package provides an executable for discovering Persistent model definition files, as well as a library function to glob all persistent model files. Please see the README on GitHub at <https://github.com/parsonsmatt/persistent-discover#readme> category: Web@@ -53,12 +53,15 @@ build-depends: base >=4.12 && <5 , directory+ , discover-instances , dlist , file-embed , filepath , mtl , persistent >=2.13.0.0+ , some-dict-of , template-haskell >=2.16.0.0+ , text default-language: Haskell2010 executable persistent-discover@@ -85,13 +88,16 @@ build-depends: base >=4.12 && <5 , directory+ , discover-instances , dlist , file-embed , filepath , mtl , persistent >=2.13.0.0 , persistent-discover+ , some-dict-of , template-haskell >=2.16.0.0+ , text default-language: Haskell2010 test-suite persistent-discover-test@@ -122,6 +128,7 @@ build-depends: base >=4.12 && <5 , directory+ , discover-instances , dlist , file-embed , filepath@@ -130,5 +137,7 @@ , mtl , persistent >=2.13.0.0 , persistent-discover+ , some-dict-of , template-haskell >=2.16.0.0+ , text default-language: Haskell2010
src/Database/Persist/Discover/Exe.hs view
@@ -126,6 +126,7 @@ "{-# LINE 1 " fromString $ show modName " #-}"+ "{-# LANGUAGE TemplateHaskell #-}" "" renderLine do "module "
test/Database/Persist/Discover/ExeSpec.hs view
@@ -1,11 +1,34 @@ module Database.Persist.Discover.ExeSpec where +import qualified Data.Text as Text import Test.Hspec import Database.Persist.Discover.Exe import System.FilePath spec :: Spec spec = do+ describe "renderFile" do+ it "should have TemplateHaskell pragma" do+ let rendered =+ renderFile AllModelsFile+ { amfModuleBase =+ Module+ { moduleName = "Asdf"+ , modulePath = "src/Asdf.hs"+ }+ , amfModuleImports =+ []+ }+ firstLines =+ unlines . take 4 . lines $ rendered+ expected =+ render do+ "{-# LINE 1 \"Asdf\" #-}"+ "{-# LANGUAGE TemplateHaskell #-}"+ ""+ "module Asdf where"+ firstLines `shouldBe` expected+ describe "Render" do it "works" do shouldBe