Move typeOf function

Author: brendanzab

experiments/idris/src/Fathom/Base.idr

@@ -7,6 +7,12 @@ import Data.List
 import Data.Vect
 
 
+||| Return the type of an expression, without consuming it
+public export
+typeOf : {1 A : Type} -> (0 x : A) -> Type
+typeOf _ = A
+
+
 ---------------------------
 -- ENCODER/DECODER PAIRS --
 ---------------------------

experiments/idris/src/Fathom/Closed/InductiveRecursiveCustom.idr

@@ -14,11 +14,6 @@ import Fathom.Data.Iso
 import Fathom.Data.Sing
 
 
-public export
-typeOf : {1 A : Type} -> (0 x : A) -> Type
-typeOf _ = A
-
-
 -------------------------
 -- FORMAT DESCRIPTIONS --
 -------------------------