Fixes broken doctest.

By replacing Text.Show.Pretty generated string representation
used in the doctest with a handwritten one.
pull/1/head
Abhinav Sarkar 2016-06-15 04:15:41 +05:30
parent c919658f5b
commit b912e451f7
2 changed files with 22 additions and 24 deletions

View File

@ -45,8 +45,7 @@ test-suite ringo-test
if impl(ghc >= 7.10)
build-depends: base
, ringo
, pretty-show >=1.6 && <1.7
, doctest >=0.9 && <0.12
, doctest >=0.9 && <0.12
else
buildable: False
default-language: Haskell2010

View File

@ -29,7 +29,7 @@ import qualified Ringo.Validator as V
-- >>> import qualified Data.Map as Map
-- >>> import qualified Data.Text as Text
-- >>> import Data.List (nub)
-- >>> import Text.Show.Pretty
-- >>> import Data.Monoid ((<>))
-- >>> :{
--let sessionEventsTable =
-- Table { tableName = "session_events"
@ -198,27 +198,26 @@ extractDimensionTables env = flip runReader env . E.extractDimensionTables
-- |
--
-- >>> putStrLn . ppShow $ extractDependencies env sessionFact
-- fromList
-- [ ( "dim_geo" , [ "session_events" ] )
-- , ( "dim_user_agent" , [ "session_events" ] )
-- , ( "fact_session_by_minute"
-- , [ "session_events" , "dim_user_agent" , "dim_geo" ]
-- )
-- ]
-- >>> putStrLn . ppShow $ extractDependencies env pageViewFact
-- fromList
-- [ ( "dim_page_type" , [ "page_view_events" ] )
-- , ( "fact_page_view_by_minute"
-- , [ "page_view_events"
-- , "session_events"
-- , "dim_page_type"
-- , "referrers"
-- , "dim_user_agent"
-- , "dim_geo"
-- ]
-- )
-- ]
-- >>> let depsToStr = map ((\(k, vs) -> Text.unpack $ k <> ":\n - " <> Text.intercalate "\n - " vs)) . Map.toList
-- >>> mapM_ putStrLn . depsToStr $ extractDependencies env sessionFact
-- dim_geo:
-- - session_events
-- dim_user_agent:
-- - session_events
-- fact_session_by_minute:
-- - session_events
-- - dim_user_agent
-- - dim_geo
-- >>> mapM_ putStrLn . depsToStr $ extractDependencies env pageViewFact
-- dim_page_type:
-- - page_view_events
-- fact_page_view_by_minute:
-- - page_view_events
-- - session_events
-- - dim_page_type
-- - referrers
-- - dim_user_agent
-- - dim_geo
extractDependencies :: Env -> Fact -> Dependencies
extractDependencies env = flip runReader env . E.extractDependencies