1 files changed, 1 insertions(+), 1 deletions(-)

M test/Data/Text/ParagraphLayout/PrettyShow/Golden.hs

@@ 25,7 25,7 @@ goldenTest goldenDir unwrap wrap innerOutput name = Golden
     { output = wrap innerOutput
     , encodePretty = show . unwrap
     , writeToFile = \ path -> writeFile path . prettyShow
-    , readFromFile = \ path -> readFile path >>= return . wrap . read
+    , readFromFile = \ path -> wrap . read <$> readFile path
     , goldenFile = goldenPath goldenDir name
     , actualFile = Just (actualPath goldenDir name)
     , failFirstTime = True