Commit effb4ea6 authored by Edward Z. Yang's avatar Edward Z. Yang
Browse files

GHC 8.1 compatibility fixes.



It seems that GHC HEAD is now unable to infer the correct
type for "f . g" when g has a higher-rank type.  So eta-expand
all such occurrences to keep the build working.
Signed-off-by: default avatarEdward Z. Yang <ezyang@cs.stanford.edu>
parent aac2b352
......@@ -1073,24 +1073,24 @@ copyFilesWith doCopy verbosity targetDir srcFiles = withFrozenCallStack $ do
-- anything goes wrong.
--
copyFiles :: Verbosity -> FilePath -> [(FilePath, FilePath)] -> IO ()
copyFiles = withFrozenCallStack . copyFilesWith copyFileVerbose
copyFiles v fp fs = withFrozenCallStack (copyFilesWith copyFileVerbose v fp fs)
-- | This is like 'copyFiles' but uses 'installOrdinaryFile'.
--
installOrdinaryFiles :: Verbosity -> FilePath -> [(FilePath, FilePath)] -> IO ()
installOrdinaryFiles = withFrozenCallStack . copyFilesWith installOrdinaryFile
installOrdinaryFiles v fp fs = withFrozenCallStack (copyFilesWith installOrdinaryFile v fp fs)
-- | This is like 'copyFiles' but uses 'installExecutableFile'.
--
installExecutableFiles :: Verbosity -> FilePath -> [(FilePath, FilePath)]
-> IO ()
installExecutableFiles = withFrozenCallStack . copyFilesWith installExecutableFile
installExecutableFiles v fp fs = withFrozenCallStack (copyFilesWith installExecutableFile v fp fs)
-- | This is like 'copyFiles' but uses 'installMaybeExecutableFile'.
--
installMaybeExecutableFiles :: Verbosity -> FilePath -> [(FilePath, FilePath)]
-> IO ()
installMaybeExecutableFiles = withFrozenCallStack . copyFilesWith installMaybeExecutableFile
installMaybeExecutableFiles v fp fs = withFrozenCallStack (copyFilesWith installMaybeExecutableFile v fp fs)
-- | This installs all the files in a directory to a target location,
-- preserving the directory layout. All the files are assumed to be ordinary
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment