Fixes broken doctest.
By replacing Text.Show.Pretty generated string representation used in the doctest with a handwritten one.pull/1/head
parent
c919658f5b
commit
b912e451f7
|
@ -45,7 +45,6 @@ test-suite ringo-test
|
||||||
if impl(ghc >= 7.10)
|
if impl(ghc >= 7.10)
|
||||||
build-depends: base
|
build-depends: base
|
||||||
, ringo
|
, ringo
|
||||||
, pretty-show >=1.6 && <1.7
|
|
||||||
, doctest >=0.9 && <0.12
|
, doctest >=0.9 && <0.12
|
||||||
else
|
else
|
||||||
buildable: False
|
buildable: False
|
||||||
|
|
|
@ -29,7 +29,7 @@ import qualified Ringo.Validator as V
|
||||||
-- >>> import qualified Data.Map as Map
|
-- >>> import qualified Data.Map as Map
|
||||||
-- >>> import qualified Data.Text as Text
|
-- >>> import qualified Data.Text as Text
|
||||||
-- >>> import Data.List (nub)
|
-- >>> import Data.List (nub)
|
||||||
-- >>> import Text.Show.Pretty
|
-- >>> import Data.Monoid ((<>))
|
||||||
-- >>> :{
|
-- >>> :{
|
||||||
--let sessionEventsTable =
|
--let sessionEventsTable =
|
||||||
-- Table { tableName = "session_events"
|
-- Table { tableName = "session_events"
|
||||||
|
@ -198,27 +198,26 @@ extractDimensionTables env = flip runReader env . E.extractDimensionTables
|
||||||
|
|
||||||
-- |
|
-- |
|
||||||
--
|
--
|
||||||
-- >>> putStrLn . ppShow $ extractDependencies env sessionFact
|
-- >>> let depsToStr = map ((\(k, vs) -> Text.unpack $ k <> ":\n - " <> Text.intercalate "\n - " vs)) . Map.toList
|
||||||
-- fromList
|
-- >>> mapM_ putStrLn . depsToStr $ extractDependencies env sessionFact
|
||||||
-- [ ( "dim_geo" , [ "session_events" ] )
|
-- dim_geo:
|
||||||
-- , ( "dim_user_agent" , [ "session_events" ] )
|
-- - session_events
|
||||||
-- , ( "fact_session_by_minute"
|
-- dim_user_agent:
|
||||||
-- , [ "session_events" , "dim_user_agent" , "dim_geo" ]
|
-- - session_events
|
||||||
-- )
|
-- fact_session_by_minute:
|
||||||
-- ]
|
-- - session_events
|
||||||
-- >>> putStrLn . ppShow $ extractDependencies env pageViewFact
|
-- - dim_user_agent
|
||||||
-- fromList
|
-- - dim_geo
|
||||||
-- [ ( "dim_page_type" , [ "page_view_events" ] )
|
-- >>> mapM_ putStrLn . depsToStr $ extractDependencies env pageViewFact
|
||||||
-- , ( "fact_page_view_by_minute"
|
-- dim_page_type:
|
||||||
-- , [ "page_view_events"
|
-- - page_view_events
|
||||||
-- , "session_events"
|
-- fact_page_view_by_minute:
|
||||||
-- , "dim_page_type"
|
-- - page_view_events
|
||||||
-- , "referrers"
|
-- - session_events
|
||||||
-- , "dim_user_agent"
|
-- - dim_page_type
|
||||||
-- , "dim_geo"
|
-- - referrers
|
||||||
-- ]
|
-- - dim_user_agent
|
||||||
-- )
|
-- - dim_geo
|
||||||
-- ]
|
|
||||||
extractDependencies :: Env -> Fact -> Dependencies
|
extractDependencies :: Env -> Fact -> Dependencies
|
||||||
extractDependencies env = flip runReader env . E.extractDependencies
|
extractDependencies env = flip runReader env . E.extractDependencies
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue