@togetic:~/hmp3-1.2$ ./Setup.hs build
Preprocessing executables for hmp3-1.2...
Building hmp3-1.2...
[ 1 of 16] Compiling Regex            ( dist/build/hmp3/hmp3-tmp/Regex.hs, dist/build/hmp3/hmp3-tmp/Regex.o )
[ 2 of 16] Compiling Syntax           ( Syntax.hs, dist/build/hmp3/hmp3-tmp/Syntax.o )
[ 3 of 16] Compiling FastIO           ( FastIO.hs, dist/build/hmp3/hmp3-tmp/FastIO.o )

FastIO.hs:161:22:
    Couldn't match expected type `CInt' against inferred type `CMode'
    In the second argument of `c_access', namely `r_OK'
    In a 'do' expression: readp <- c_access s r_OK
    In the expression:
        do readp <- c_access s r_OK
           write <- c_access s w_OK
           exec <- c_access s x_OK
             (packedWithFileStatus "FastIO.getPermissions" name)
           $ (\ st
                  -> do is_dir <- isDirectory st
                        return
                          (Permissions
                               {readable = ...,
                                writable = ...,
                                executable = ...,
                                searchable = ...}))
h@togetic:~/hmp3-1.2$