Test suite test-httplogmonitor: RUNNING...
  ✗ <interactive> failed after 1 test and 36 shrinks.

       ┏━━ Test.hs ━━━
    15 ┃ prop_roundtrip :: Property
    16 ┃ prop_roundtrip =
    17 ┃     withTests 1000 . property $
    18 ┃               do
    19 ┃                 lm <- forAll genLogMessage
       ┃                 │ a (-a)
       ┃                 │   [ 17 / Nov / 1858 : 00 : 00 : 00 + 0000 ]
       ┃                 │   "a /a HTTP/1.0"
       ┃                 │   100
       ┃                 │   100
    20 ┃                 -- lm === fromRight (parseOnly pLogMessage $ pack (show lm))
    21 ┃                 tripping lm (pack . show) (parseOnly pLogMessage)
       ┃                 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
       ┃                 │ ━━━ Intermediate ━━━
       ┃                 │ "a - a [17/Nov/1858:00:00:00 +0000] \"a /a HTTP/1.0\" 100 100"
       ┃                 │ ━━━ - Original / + Roundtrip ━━━
       ┃                 │   Right
       ┃                 │     a
       ┃                 │     (-a)
       ┃                 │     [ 17 / Nov / 1858 : 00 : 00 : 00 + 0000 ]
       ┃                 │     "a /a HTTP/1.0"
       ┃                 │     100
       ┃                 │     100

    This failure can be reproduced by running:
    > recheck (Size 0) (Seed 7323114830085660507 16923437795472614951) <property>

Test suite test-httplogmonitor: PASS