Revert "Fix compilation"

This fix isn't necessary now that the XML context change is
reverted.

This reverts commit 51d493f484.
This commit is contained in:
Shea Levy 2018-11-27 14:22:04 -05:00
parent 83e5dc7aa3
commit 2bba6c84e6
No known key found for this signature in database
GPG Key ID: 5C0BD6957D86FE27
3 changed files with 3 additions and 4 deletions

View File

@ -139,7 +139,7 @@ main = do
| finder opts =
fromValue @(AttrSet (NThunk m)) >=> findAttrs
| xml opts =
liftIO . Text.putStrLn . hackyStringIgnoreContext .toXML <=< normalForm
liftIO . putStrLn . toXML <=< normalForm
| json opts =
liftIO . TL.putStrLn
. TL.decodeUtf8

View File

@ -54,7 +54,7 @@ import System.Exit
main :: (MonadNix e m, MonadIO m, MonadException m) => m ()
main = flip evalStateT initState $
#if MIN_VERSION_repline(0, 2, 0)
evalRepl (return prefix) cmd options (Just ':') completer welcomeText
evalRepl (return prefix) cmd options (Just ':') completer init
#else
evalRepl prefix cmd options completer welcomeText
#endif

View File

@ -22,7 +22,6 @@ import Nix.Options
import Nix.Options.Parser
import Nix.Parser
import Nix.Pretty
import Nix.String
import Nix.Utils
import Nix.XML
import qualified Options.Applicative as Opts
@ -111,7 +110,7 @@ assertLangOkXml :: Options -> FilePath -> Assertion
assertLangOkXml opts file = do
actual <- toXML <$> hnixEvalFile opts (file ++ ".nix")
expected <- Text.readFile $ file ++ ".exp.xml"
assertEqual "" expected $ hackyStringIgnoreContext actual
assertEqual "" expected $ Text.pack actual
assertEval :: Options -> [FilePath] -> Assertion
assertEval _opts files = do