Fixes broken doctest.

By replacing Text.Show.Pretty generated string representation
used in the doctest with a handwritten one.

ringo/ringo.cabal

@@ -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

ringo/src/Ringo.hs

@@ -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
+-- >>> 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 = flip runReader env . E.extractDependencies