1 files changed, 4 insertions, 22 deletions
diff --git a/src/MdBlocks/Resolver.hs b/src/MdBlocks/Resolver.hs
index c6e94d1..29c1658 100644
--- a/src/MdBlocks/Resolver.hs
+++ b/src/MdBlocks/Resolver.hs
@@ -1,5 +1,3 @@
-{-# LANGUAGE OverloadedStrings #-}
-
 module MdBlocks.Resolver
   ( resolveBlock
   )
@@ -14,26 +12,10 @@ resolveBlock
   :: Address
   -> [Block]
   -> Maybe Block
-
-resolveBlock (GlobalId ident) blocks =
-  findById ident blocks
-
-resolveBlock (FileAddress fp ident) blocks =
-  findByFileAndId fp ident blocks
-
-findById :: Text -> [Block] -> Maybe Block
-findById ident =
-  go
-  where
-    go [] =
-      Nothing
-
-    go (b:bs)
-      | mdId (blockMeta b) == Just ident =
-          Just b
-
-      | otherwise =
-          go bs
+resolveBlock address =
+  findByFileAndId
+    (addressFile address)
+    (addressId address)
 
 findByFileAndId
   :: FilePath