1 files changed, 5 insertions, 3 deletions
diff --git a/src/Plugin/GitRemoteSetOrigin.hs b/src/Plugin/GitRemoteSetOrigin.hs
index 0e8f817..8cf2e51 100644
--- a/src/Plugin/GitRemoteSetOrigin.hs
+++ b/src/Plugin/GitRemoteSetOrigin.hs
@@ -20,9 +20,11 @@ gitRemoteSetOrigin = Plugin
 
 gitRemoteSetOriginAction :: PluginAction
 gitRemoteSetOriginAction message = do
-    case M.textStr message =~ matchRegex gitRemoteSetOrigin of
-        ""  -> return $ Left "blast"
-        url -> do
+    case M.textStr message =~ matchRegex gitRemoteSetOrigin :: [[String]] of
+        []    -> return $ Left "blast"
+        (m:_) -> do
+            let url = last m
+
             dbConn <- liftIO $ open "db/sorbot_development.sqlite3"
             liftIO $ execute dbConn "INSERT INTO \
                 \ plugin_github_commit_channel_repo_urls \