Visible infix info from imports

aoc2023/Day1.newt

@@ -1,23 +1,6 @@
 module Day1
 
 import Lib
-ptype Int
-
--- TODO fix import of fixity declarations
-infixr 4 _::_
-infixl 3 _<_
-infixl 4 _-_
-infixl 4 _+_
-infixl 5 _*_
-infixl 5 _/_
-infixr 0 _$_
--- Code
-
-
-infixl 7 _._
-_._ : {A B C : U} -> (B -> C) -> (A -> B) -> A -> C
-(f . g) x = f ( g x)
-
 
 digits1 : List Char -> List Int
 digits1 Nil = Nil

aoc2023/Lib.newt

@@ -131,3 +131,8 @@ foldl f acc (x :: xs) = foldl f (f acc x) xs
 map : {A B : U} -> (A -> B) -> List A -> List B
 map f Nil = Nil
 map f (x :: xs) = f x :: map f xs
+
+
+infixl 7 _._
+_._ : {A B C : U} -> (B -> C) -> (A -> B) -> A -> C
+(f . g) x = f ( g x)