From ebde44b28b551f670c9e5c4c038d03e94bfbb1d2 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Sun, 30 Jul 2017 09:17:44 +0200
Subject: Reorganise: make Position a field in Syntax types

---
 Sil/Error.icl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Sil/Error.icl')

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}
-- 
cgit v1.2.3