12 lines
392 B
Haskell
12 lines
392 B
Haskell
module Main (main) where
|
|
|
|
import qualified Bazel.Runfiles as Runfiles
|
|
import Control.Monad (when)
|
|
import System.FilePath ((</>))
|
|
|
|
main :: IO ()
|
|
main = do
|
|
r <- Runfiles.create
|
|
bar <- readFile (Runfiles.rlocation r "io_tweag_rules_haskell/tools/runfiles/bin-data.txt")
|
|
when (lines bar /= ["bar"]) -- ignore trailing newline
|
|
$ error $ "Incorrect contents: got: " ++ show bar
|