Fix build

This commit is contained in:
Runar Bjarnason 2020-02-10 13:12:27 -05:00
parent 89bdfd61b9
commit 3966d1ffa7

View File

@ -319,9 +319,9 @@ loop = do
UndoI{} -> "undo" UndoI{} -> "undo"
ExecuteI s -> "execute " <> Text.pack s ExecuteI s -> "execute " <> Text.pack s
LinkI froms to -> LinkI froms to ->
"link " <> Text.pack (hqs' to) <> " " <> (show $ hqs' <$> froms) "link " <> hqs' to <> " " <> Text.pack (show $ hqs' <$> froms)
UnlinkI froms to -> UnlinkI froms to ->
"unlink " <> Text.pack (hqs' to) <> " " <> (show $ hqs' <$> froms) "unlink " <> hqs' to <> " " <> Text.pack (show $ hqs' <$> froms)
UpdateBuiltinsI -> "builtins.update" UpdateBuiltinsI -> "builtins.update"
MergeBuiltinsI -> "builtins.merge" MergeBuiltinsI -> "builtins.merge"
PullRemoteBranchI orepo dest -> PullRemoteBranchI orepo dest ->