@@ -65,7 +65,8 @@ test testName path = goldenVsFileDiff testName diff ref output
6565 where
6666 ref = path </> "expected"
6767 output = path </> "output"
68− diff ref new = ["diff", "-u", new, ref]
68+ diff ref new | os == "openbsd" = ["diff", "-u", new, ref]
69+ | otherwise = ["diff", "--strip-trailing-cr", "-u", new, ref]
6970
7071-- Should always output a 3-charater string from a postive Int
7172indexToString :: Int -> String