`FilePath` -> `Collection`

1 files changed, 3 insertions, 3 deletions

diff --git a/app/Main.hs b/app/Main.hs
index 3cb3b79..3b630ac 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -112,7 +112,7 @@ data FieldSelector
   deriving (Show)
 
 data Field
-  = Qualified FilePath T.Text
+  = Qualified Collection T.Text
   | Unqualified T.Text
   deriving (Show)
 
@@ -147,7 +147,7 @@ data Comparison
   deriving (Show)
 
 data Record a
-  = Record FilePath a
+  = Record Collection a
   deriving (Show, Eq)
 
 data ParseError = ParseError String
@@ -356,7 +356,7 @@ data DecodeException = DecodeException
 
 instance Exception DecodeException
 
-decodeFile :: J.FromJSON a => FilePath -> IO a
+decodeFile :: J.FromJSON a => Collection -> IO a
 decodeFile fp = S.withStore "." "HEAD" do
   fromMaybe (throw DecodeException) . J.decode <$> S.readFile fp