about summary refs log blame commit diff
path: root/third_party/bazel/rules_haskell/tests/binary-with-data/bin1.hs
blob: 309f6ecd5641f2d27a14278e2bc5a99519c90b58 (plain) (tree)
1
2
3
4
5
6
7
8
9








                                                            
module Main where

import Control.Monad (unless)

main :: IO ()
main = do
    contents <- readFile "tests/binary-with-data/bin1-input"
    unless (contents == "contents\n")
      $ error $ "Incorrect input; got " ++ show contents