dsh-sql 0.2.0.0 → 0.2.0.1
raw patch · 2 files changed
+5/−6 lines, 2 filesnew-component:exe:sqltests
Files
- dsh-sql.cabal +3/−4
- src/Database/DSH/Backend/Sql.hs +2/−2
dsh-sql.cabal view
@@ -1,5 +1,5 @@ Name: dsh-sql-Version: 0.2.0.0+Version: 0.2.0.1 Synopsis: SQL backend for Database Supported Haskell (DSH) Description: This package provides an SQL backend for Database Supported Haskell@@ -52,7 +52,7 @@ if flag(debuggraph) CPP-Options: -DDEBUGGRAPH - GHC-Options: -Wall -fno-warn-orphans -fprof-auto -O2+ GHC-Options: -Wall -fno-warn-orphans -fprof-auto Exposed-modules: Database.DSH.Backend.Sql @@ -75,8 +75,7 @@ Database.DSH.Backend.Sql.VectorAlgebra Database.DSH.Backend.Sql.Vector -Test-Suite sqltests- type: exitcode-stdio-1.0+Executable sqltests Hs-Source-Dirs : testsuite Main-is: Main.hs Build-depends:
src/Database/DSH/Backend/Sql.hs view
@@ -332,7 +332,7 @@ h <- fileId fileName <- dumpPlan ("q_ta_" ++ h) False bp void $ runCommand $ printf ".cabal-sandbox/bin/tadot -i %s.plan | dot -Tpdf -o %s.pdf" fileName fileName- void $ runCommand $ printf "evince %s.pdf" fileName+ void $ runCommand $ printf "evince %s.pdf 2> /dev/null" fileName -- | Show the optimized relational table algebra plan showRelationalOptQ :: forall a.DSH.QA a => DSH.Q a -> IO ()@@ -342,7 +342,7 @@ h <- fileId fileName <- dumpPlan ("q_ta_" ++ h) True bp void $ runCommand $ printf ".cabal-sandbox/bin/tadot -i %s.plan | dot -Tpdf -o %s.pdf" fileName fileName- void $ runCommand $ printf "evince %s.pdf" fileName+ void $ runCommand $ printf "evince %s.pdf 2> /dev/null" fileName -- | Show all SQL queries produced for the given query showSqlQ :: forall a.DSH.QA a => DSH.Q a -> IO ()