From 0c646d8a8c5b2809ebb269d6294a9ab5794ff01e Mon Sep 17 00:00:00 2001
From: joshvera <josh@joshvera.com>
Date: Wed, 1 Jun 2016 17:41:28 -0400
Subject: [PATCH] Remove redundant module names

---
 src/Source.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Source.hs b/src/Source.hs
index bfe8bb965..8d325a4dc 100644
--- a/src/Source.hs
+++ b/src/Source.hs
@@ -30,8 +30,8 @@ newtype Source a = Source { getVector :: Vector.Vector a  }
 
 -- | Map blobs with Nothing blobKind to empty blobs.
 idOrEmptySourceBlob :: SourceBlob -> SourceBlob
-idOrEmptySourceBlob blob = if isNothing (Source.blobKind blob)
-                           then (blob { Source.oid = nullOid, Source.blobKind = Nothing })
+idOrEmptySourceBlob blob = if isNothing (blobKind blob)
+                           then blob { oid = nullOid, blobKind = Nothing }
                            else blob
 
 nullOid :: String