diff --git a/src/Common b/src/Common
index c8b6cfa..738f76c 160000
--- a/src/Common
+++ b/src/Common
@@ -1 +1 @@
-Subproject commit c8b6cfa8d17dab26db31f72a0b1b6bcbcd3d03f0
+Subproject commit 738f76cb9a56cc397a7b9c1efc844fbf6622dea8
diff --git a/src/Parsing/BodyParser.hs b/src/Parsing/BodyParser.hs
index 23b30b9..40cea9b 100644
--- a/src/Parsing/BodyParser.hs
+++ b/src/Parsing/BodyParser.hs
@@ -12,7 +12,6 @@ module Parsing.BodyParser
     ) where
 
 import Data.Maybe (catMaybes)
-import Data.Map (Map)
 import qualified Data.Map as Map
 import GHCJS.DOM (currentDocument)
 import GHCJS.DOM.Types
@@ -29,7 +28,6 @@ import GHCJS.DOM.JSFFI.Generated.DOMTokenList (contains)
 import Data.Text (Text)
 import Miso (consoleLog)
 import Miso.String (fromMisoString)
-import qualified Common.Network.PostType as Post
 import Common.Component.Thread.Model (PostWithBody)
 
 import Common.Parsing.PostPartType
@@ -146,8 +144,6 @@ parseS element
     = parseChildNodes element
     >>= return . Strikethrough
 
-type Backlinks = Map Integer [Post.Post]
-
 collectBacklinks :: [PostWithBody] -> Backlinks
 collectBacklinks xs = foldr insertElement Map.empty xs
   where