aboutsummaryrefslogtreecommitdiff
path: root/Sil/Error.icl
diff options
context:
space:
mode:
Diffstat (limited to 'Sil/Error.icl')
-rw-r--r--Sil/Error.icl4
1 files changed, 2 insertions, 2 deletions
diff --git a/Sil/Error.icl b/Sil/Error.icl
index ef3e4fa..9253673 100644
--- a/Sil/Error.icl
+++ b/Sil/Error.icl
@@ -43,5 +43,5 @@ where
instance <<< Error where <<< f e = f <<< toString e <<< "\r\n"
-errpos :: (Positioned a) -> ErrorPosition
-errpos p = {ep_line=p.pos_line}
+errpos :: a -> ErrorPosition | getPos a
+errpos x = {ep_line=(getPos x).pp_line}