Commit 9500c75c authored by Peter Achten's avatar Peter Achten

minor

parent cd7c4b6d
Pipeline #23739 failed with stage
in 2 minutes and 59 seconds
...@@ -165,4 +165,4 @@ tag t image = Tag` t image ...@@ -165,4 +165,4 @@ tag t image = Tag` t image
tagWithSrc :: !*TagSource !(Image m) -> *(!(!Image m, !ImageTag), !*TagSource) tagWithSrc :: !*TagSource !(Image m) -> *(!(!Image m, !ImageTag), !*TagSource)
tagWithSrc [(nut, t) : tsrc] image tagWithSrc [(nut, t) : tsrc] image
= ((Tag` t image, nut), tsrc) = ((Tag` t image, nut), tsrc)
tagWithSrc _ _ = abort "empty TagSource in tagWithSrc\n" tagWithSrc _ _ = abort "empty TagSource in tagWithSrc.\n"
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